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INLEIDING 



In het grote MSX-handboek werd de MSX-computer en het MSX-basic 
uitgebreid behandeld. De bezitter van een eenvoudige MSX-computer 
vindt in dit grote handboek dan ook alle geheimen van de MSX- 
computer uitgebreid beschreven. 

Dit MSX-disk-handboek is bedoeld als een uitbreiding op dit eerste, 
grote handboek en is geschreven voor de bezitter van een MSX-computer 
met een schijveneenheid tezamen met het grote MSX-handboek of 
eventueel de verkorte versie van dit handboek die door veel importeurs 
standaard bij de computer wordt geleverd. 

In dit handboek wordt met name ingegaan op het MSX-basic in verband 
met de schijveneenheid. De beginnende programmeur dient dan ook 
eerst een redelijke ervaring te hebben opgebouwd met behulp van het 
grote handboek alvorens dit handboek ter hand te nemen. Daarbij is 
het verstandig om het grote handboek altijd klaar te hebben liggen om 
nog eens het één en ander te kunnen nazoeken. 

Tezamen met het grote MSX-handboek vormt dit MSX-disk-handboek 
een zeer duidelijke en complete handleiding voor uw MSX-computer 
met schijveneenheid. 

Indien u nog niet in het bezit bent van het ‘grote’ handboek, dan kunt 
u dit alles onthullende, meer dan 400 pagina’s dikke nederlandse 
handboek bestellen bij uw computerboekhandel. Uw boekhandelaar 
heeft aan het ISBN-nummer 90 6398 100 7 genoeg om het voor u te 
kunnen bestellen. Eventueel kunt u dit handboek direkt bij de uitgever 
bestellen (telefoon 02223 - 661). 

Ik hoop dat dit MSX-disk-handboek het grote handboek in haar 
enorme sukses mag volgen. 



april 1985, 

A.C.J. Groeneveld. 
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MSX-BASIC EN MSX-DISK-BASIC 



In het MSX-handboek werd reeds de geheugenopbouw van een MSX- 
computer behandeld. We zagen ondermeer dat we het geheugen van de 
MSX-computer kunnen indelen in vier geheugenbanken. In bank 0 en 
1 zetelt het MSX-basic in ROM (read only memory, niet uitwisbaar 
geheugen). In bank 2 en 3 bevindt zich dan maximaal 32 kilobyte 
RAM (random access memory, vrij toegankelijk geheugen) waarin de 
MSX-computergebruiker bijvoorbeeld zijn programma kan koderen. 

Het MSX-disk-basic brengt in de struktuur van de geheugenindeling 
enkele wijzigingen: 

- allereerst resulteert het aansluiten van de disk-unit in een uitbrei- 
ding van het ROM-geheugen. ‘Achter’ geheugenbank 1 wordt een 
extra stuk ROM-geheugen geplaatst dat aktief wordt bij de bena- 
dering van de disk. 

- ten tweede wordt een gedeelte van het RAM-geheugen ‘afgesnoept 
voor de disk. MSX-basic heeft bij het gebruik van een disk wat 
extra geheugen nodig voor het opslaan van tussenresultaten 
(bufferruimte). 

Wanneer de disk verder niet wordt gebruikt, is de aanwezigheid van 
het disk-basic in plaats van het gewone basic alleen te merken aan de 
volgende verschijnselen: 

- het beschikbare geheugen is wat kleiner. Sommige veel ruimte 
vragende programma’s kunnen hierdoor een foutmelding geven in 
het MSX-disk-basic. 

- indien bij de bevelen: 

BLO AD geen naam van het randapparaat wordt gegeven, werd 

BSAVE bij het MSX-basic automatisch aangenomen dat de 
LOAD cassetterecorder als randapparaat werd bedoeld. In 
MERGE het MSX-disk-basic wordt plotseling automatisch 
OPEN aangenomen dat de disk unit als randapparaat wordt 

RUN bedoeld. 

SAVE 

- Het bevel SAVE “PROG” wordt in MSX-basic automatisch 
uitgevoerd op de cassetterecorder. In MSX-disk-basic wordt dit 
bevel echter automatisch op de disk uitgevoerd. 
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Sommige fabrikanten leveren op floppy een kompleet disk opera- 
ting system mee (MSX-DOS of CP/M). In dat geval dient het 
MSX-computersysteem te beschikken over 64 kilobyte RAM- 
geheugen. Voor het opstarten van het MSX-basic dient dan eerst 
het betreffende operating system te worden opgestart waarna 
MSX-basic via een bepaalde ingave dient te worden geaktiveerd. 
Raadpleeg in dat geval de beschrijving van het betreffende opera- 
ting system. 

Sommige fabrikanten voorzien het MSX-disk-basic van een gewij- 
zigde startmethode. Vaak dient voorafgaand aan het normale 
gebruik eerst een datum te worden ingegeven. Zie hiervoor de 
beschrijving van de fabrikant. 
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DE MSX-COMPUTER EN DE DISK 



In het MSX-handboek werd reeds de opbouw van een MSX-computer 
behandeld. Eén van de onderdelen van de MSX-computer kan bestaan 
uit een (floppy) disk eenheid. 

De disk eenheid wordt niet tot de standaard MSX-configuratie gerekend 
en werd als zodanig niet in het algemene handboek behandeld. 

3.1 Permanente gegevensopslag 

Het is bij een computer onontbeerlijk dat gegevens voor langere tijd 
kunnen worden bewaard. Een groot en ingewikkeld programma willen 
we niet elke avond opnieuw intikken, maar slechts éénmaal invoeren 
en vervolgens vastleggen. Standaard kan dit vastleggen van gegevens in 
MSX-basic gebeuren op een cassetteband met behulp van een cassette- 
recorder. 

Elke MSX-programmeur stuit al snel tegen twee grote bezwaren van 
deze opslagmethode, namelijk: 

— De opslag duurt vrij lang. 32 kilobytes (32768 tekens) op cassette- 
band vastleggen duurt ongeveer vijf minuten. Dit lijkt in eerste 
instantie snel, maar blijkt al vlug een groot , bezwaar te zijn. 

- De opslag is niet erg betrouwbaar. Vooral wanneer de cassette- 
recorder niet in topconditie is of verkeerd bandmateriaal wordt 
gebruikt, blijken gegevens tijdens opslag te kunnen worden ver- 
minkt. Het is dan ook noodzakelijk om uitstekend bandmateriaal 
aan te schaffen, de cassetterecorder regelmatig schoon te maken 
en af te stellen en de vastgelegde gegevens altijd te controleren. 

Ondanks deze grote bezwaren is de cassetteband het meest voor de 
hand liggende opslagmedium voor hobby-computers;een cassetterecor- 
der is relatief erg goedkoop, terwijl ook het bandmateriaal relatief zeer 
goedkoop is. 

Wanneer snelheid bij het vastleggen en ophalen van gegevens een rol 
gaat spelen, wordt de cassetterecorder al snel een onbruikbaar rand- 
apparaat. Er dient dan naar een sneller opslagmedium te worden uitge- 
keken: de magneetschijf. 
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MSX-basic ondersteunt in een uitgebreide versie standaard het gebruik 
van deze magneetschijven. 

In de volgende paragrafen wordt eerst het algemene principe van de 
magneetschijf uitgelegd. Daarna gaan we in op de logische indeling van 
een magneetschijf. Daarna, in hoofdstuk 4, wordt het MSX-basic met 
betrekking tot de magneetschijf behandeld. 

3.2 De magneetschijf 

De magneetschijfeenheid (disk unit) gaat uit van het principe dat gege- 
vens worden gelezen van en geschreven naar een snel ronddraaiende 
schijf. Deze schijf, van aluminium of kunststof, is bedekt met een 
magnetisch geprepareerde laag, die vergelijkbaar is met de laag magne- 
tisch materiaal die op een cassetteband is aangebracht. 




SECTOR 
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We kunnen een magneetschijf ingedeeld zien in een aantal ‘taartpunten’ 
die we segmenten noemen. Daarbij kunnen we ons allemaal om elkaar 
heen liggende cirkels op het schijfoppervlak voorstellen, de sporen of 
tracks. De doorsnede van een segment met een track noemt men een 
sector. We kunnen een magneetschijf dus onderverdeeld zien in een 
groot aantal sectoren, verdeeld over de verschillende tracks op het 
schijfoppervlak. 

Een sector is de eenheid van uitwisseling met een schijf. Op een sector 
kan een blok gegevens, meestal ter grootte van 512 of 1024 bytes, in 
één keer worden geschreven. Ook wordt een blok altijd in één keer 
ingelezen. 

Om gegevens uit een bepaalde sector te kunnen lezen of om een bepaalde 
sector te kunnen (her) schrijven, is een lees-schrijfkop nodig, net zoals 
een opname- en weergavekop in een cassetterecorder noodzakelijk 
zijn. In het geval van de magneetschijf zit de gekombineerde lees- 
schrijfkop op een beweegbare arm gemonteerd. Deze arm wordt door 
een speciale motor naar binnen of naar buiten bewogen, zodat de 
leesschrijfkop alle tracks kan bereiken. 

Magneetschijven kunnen aan één kant (single sided) of aan twee kanten 
(doublé sided) worden beschreven, afhankelijk van de schijveneenheid. 
Wanneer een magneetschijf aan twee zijden beschreven wordt, zijn er 
ook twee lees/schrijfkoppen noodzakelijk; één voor elke kant. 

Om gegevens uit een bepaalde sector te lezen, dient de schijveneenheid 
de volgende akties te ondernemen: 

1 ) beweeg de arm zo, dat de kop boven de juiste track wordt geplaatst. 

2) wacht totdat de juiste sector voorbij draait. 

3) lees de gegevens van deze sector in in het computergeheugen. 

Om gegevens op schijf vast te leggen, dienen de volgende akties te 
worden ondernomen: 

1 ) beweeg de arm zo, dat de kop boven de juiste track wordt geplaatst. 

2) wacht totdat de juiste sector voorbij draait. 

3) schrijf de gegevens vanuit het computergeheugen in die sector. 

Enkele voordelen van de magneetschijf ten opzichte van de cassette- 
recorder vallen onmiddellijk op: 
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- Er behoeft geen cassetterecorder meer op opnemen of afspelen te 
worden gezet; de schijveneenheid zorgt zelf voor in- en uitscha- 
keling voor ‘opnemen’ en ‘afspelen’ van gegevens. 

- Alle sectoren zijn in onderdelen van seconden te bereiken; Imge 
door-of terugspoel tij den komen hierdoor te vervallen. 

- De schijveneenheid is speciaal voor gegevensopslag ontworpen. 
In tegenstelling tot een gewone cassetterecorder behoeft de 
schijveneenheid niet geschikt te zijn om muziek te registreren. 
Hierdoor kan de kwaliteit van een disk unit worden toegespitst 
op de opslag van gegevens hetgeen een sneller en veel betrouw- 
baarder opslaan van gegevens mogelijk maakt. 



3.3 Een snelheidsvergelijking 

Voor diegene die hierin is geïnteresseerd, volgt hieronder een globale 
snelheidsvergelijking tussen een disk unit en een cassetterecorder. 

DE CASSETTERECORDER 

Om 1 6 kilobytes op cassetteband vast te leggen, is ongeveer de volgende 
tijd benodigd: 

De hoogste schrijfsnelheid (onbetrouwbaar) op cassette is 2400 baud 
hetgeen overeenkomt met ongeveer 250 bytes per seconde. Om 16 
kilobytes aan gegevens op band op te slaan, is dus een tijd nodig van 
ongeveer: 

16 x 1024 

— = 66 seconden (ruim 1 minuut) 

250 

Indien in een sector die 512 bytes kan bevatten, er 9 sectors per track 
zijn en de rotatiesnelheid van de disk ongeveer 5 maal per seconde is 
(allemaal redelijke aannamen voor een eenvoudige floppy disk een- 
heid) dan duurt het schrijven van 16 kilobytes aan gegevens ongeveer: 

16 x 1024 

= nog geen seconde... 

512x9x5 
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Beide tijdsberekeningen zijn slechts benaderingen; sommige invloeden 
zijn volledig verwaarloosd. Zonder veel gevaar kan men echter stellen 
dat de eenvoudigste schijveneenheid al snel HONDERD MAAL ZO 
SNEL is als een cassetterecorder... 



3.4 Vormen van magneetschijven 

De magneetschijfeenheid of disk unit komt in diverse verschillende 
vormen voor. Drie vormen van magneetschijfeenheden behandelen we 
hieronder: 

- de 3 Vl inch floppy disk unit 

Deze schijveneenheid maakt gebruik van 3,5 inch floppy disks. 
Deze floppy disks hebben een doorsnede van 3,5 inch (ongeveer 
9 cm) en zijn verpakt in- een hard plastic omhulsel. Het lees- 
venster is meestal afgedekt met een klepje en schuift bij het inste- 
ken van de floppy in de schijveneenheid automatisch open, waarna 
de lees/schrijfkop toegang heeft tot de daadwerkelijke schijf. 
De schijf zelf is gemaakt van een flexibele kunststof met daarop 
een magnetisch geprepareerde laag. 

Over het algemeen kent deze schijf-vorm een redelijk hoge opslag; 
per floppy disk kan meestal een hoeveelheid van 250.000 tot 
500.000 tekens worden opgeslagen... 

- de 5 Va inch floppy disk unit 

Deze schijveneenheid maakt gebruik van grotere floppy disks (5M 
inch = ongeveer 13 cm doorsnede). Deze floppy disks hebben een 
open leesvenster en moeten daarom altijd in een speciale envelop 
worden bewaard. De verdere specificaties zijn ongeveer gelijk aan 
die van de 3Vz inch floppy disk met dit verschil dat de opslagcapa- 
citeit meestal wat hoger ligt (tot maximaal ongeveer 1.000.000 
tekens). 

- de Winchester unit (hard disk) 



De schijf in een Winchester unit kan niet worden uitgenomen. 
Meestal is een Winchester disk gemaakt van een hard materiaal 
(aluminium) waaraan dan ook de benaming ‘hard disk’ is ontleend. 
Doordat de schijf vast in de schijveneenheid is opgenomen en 
daarbij van niet flexibel materiaal is gemaakt, is het voor de fabri- 
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kant mogelijk om de schijf harder te laten draaien en nauwkeuriger 
af te stellen. Grotere benaderingssnelheden en grotere opslag- 
mogelijkheden zijn hiervan het gevolg. De gemiddelde Winchester 
is al gauw weer 50 maal zo snel als een floppy en kan meestal 5 
tot 10 miljoen tekens bergen... 

Door de hoge prijsstelling is een harde schijf meestal niet voor de 
hobbyist weggelegd. 



3.5 Write protect 

Bij elke vorm van magneetschijven is de mogelijkheid aanwezig om de 
gehele schijf te beschermen tegen abusievelijk overschrijven van gege- 
vens. Deze mogelijkheid noemt men meestal de WRITE PROTECT 
optie. 

De 3Vfc diskette bezit hiertoe in één van de hoeken een klein schuifje. 
Door dit schuifje zo te zetten dat een gaatje ontstaat, wordt het schijfje 
beschermd tegen het per ongeluk overschrijven van gegevens. Nadat 
het schuifje op beschreven wijze in de write protect stand is gescho- 
ven, is het voor de computer onmogelijk om nog gegevens op de schijf 
te schrijven. Het blijft echter mogelijk om gegevens van deze schijf te 
LEZEN. 

De 5% inch floppy disk heeft geen schuifje. In plaats hiervan dient 
een plakkertje te worden geplakt over de kleine insparing die zich 
aan de kant van het leesvenster bevindt. Nadat dit plakkertje is aange- 
bracht, is het voor de computer niet meer mogeUjk om nog op de 
schijf te schrijven. LEZEN gaat natuurlijk nog wel. 

De hard disk unit bezit meestal een write protect knopje waarmee de 
schijf onbeschrijfbaar kan worden gemaakt. 

Bij optredende fouten bij het schrijven geldt altijd dat u eerst dient te 
controleren of de schijf niet via de WRITE PROTECT optie is be- 
schermd. 

Wanneer dit niet het geval blijkt te zijn, onderzoek dan of de schijf 
wel geformatteerd is (zie de volgende paragraaf). 
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3.6 Formatteren 



We zagen reeds dat een magneetschijf is onderverdeeld in zogenaamde 
sectoren. Elke sector staat op een vaste plaats op de magneetschijf. In 
elke sector kan een blok gegevens (meestal 512 of 1024 bytes) worden 
geschreven. 

Voordat een magneetschijf (bijvoorbeeld een floppy disk) in gebruik 
wordt genomen, dient de onderverdeling in sectoren eerst te worden 
aangebracht op de schijf. De magneetschijf moet als het ware voor het 
gebruik eerst in stukjes worden verdeeld. 

Het verdelen van de magneetschijf in partjes noemt men het FORMAT- 
TEREN van de magneetschijf. In de meeste gevallen geldt: 

EEN SCHIJF MOET EERST WORDEN GEFORMATTEERD, EER- 
DER KAN HIJ NIET WORDEN GEBRUIKT. 

Daar de vorm van de magneetschijveneenheid door MSX niet wordt 
vastgelegd, is er ook geen vast omschreven manier van formatteren van 
een magneetschijf. Het formatteren van een schijf is als kommando 
niet in de MSX-standaard opgenomen. 

Hoe een magneetschijf moet worden geformatteerd, dient in de ge- 
bruiksaanwijzing van de betreffende schijveneenheid te worden opge- 
zocht. Meestal gebeurt dit door middel van een ingave als: 

CALL FÜRMAT. 

Hierna vraagt de computer dan welke schijf dient te worden geformat- 
teerd. Geef de letter A in indien u maar één schijveneenheid heeft. 
Heeft u twee schijveneenheden, geef dan een A in voor de eerste of 
een B in voor de tweede schijveneenheid. 

Meestal duurt het formatteren één tot twee minuten. Na afloop van 
het formatteren kan het zijn dat de computer een foutmelding geeft. 
Probeer in dat geval een tweede formattering. Blijft het formatteren 
fout gaan, dan is de schijf kapot of is de schijveneenheid vervuild of 
kapot. 

PAS OP: WANNEER U EEN VOORBEELDSCHIJFJE MET EEN 
OPERATING SYSTEM MEEGELEVERD HEBT GEKREGEN, 
FORMATTEERT U DEZE NATUURLIJK NIET. MET HET FOR- 
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MATTEREN VERWIJDERT U NAMELIJK ALLE GEGEVENS 
VAN DE SCHIJF. 

Ook indien u een gehele schijf in één klap leeg wilt hebben, kunt u dit 
door het formatteren bewerkstelligen. 

Voordat u verder leest is het zaak dat u, wanneer u tenminste de 
voorbeelden uit wilt proberen, weet hoe u moet formatteren. Houd 
één geformatteerde schijf apart voor het oefenen met de voorbeelden. 



3.7 De logische indeling van een magneetschijf 

In de vorige paragrafen stelden we ondermeer vast dat we de mag- 
neetschijf uiteindelijk kunnen zien ingedeeld in een aantal sectoren. 
Elke sector bevat een blok van gegevens ter grootte van 512 of 1024 
bytes. Zo’n blok is de kleinste eenheid die in zijn geheel kan worden 
gelezen of geschreven. 

De indeling van de schijf in sporen, segmenten en sectoren (blokken) 
noemen we de fysische indeling van de schijf. Deze indeling kan als 
het ware op de schijf zelf worden aangewezen. 

Met de logische indeling van de schijf bedoelen we de indeling die het 
MSX-basic hanteert, gebruik makende van de fysische indeling. 

Doordat MSX-basic een intelligente en doordachte logische indeling 
van de magneetschijf ondersteunt, behoeft de gebruiker van de MSX- 
computer nooit stil te staan bij de fysische indeling van de magneet- 
schijf. MSX bepaalt de fysische indeling, zorgt dat een blok niet ten 
onrechte door een ander kan worden overschreven en houdt bij in 
welke blokken welke gegevens zifn geschreven en welke blokken bij 
elkaar horen. Nooit behoeft de gebruiker dus een lijstje bij te houden 
van welke sectoren er werden gebruikt voor opslag van een programma. 
Door alleen maar de naam van het programma aan het MSX-systeem 
te verschaffen, kan worden bewerkstelligd dat de sectoren waarin het 
programma is opgenomen in de juiste volgorde worden ingelezen in 
het computergeheugen. 

MSX-basic zorgt ervoor dat op elke disk een inhoudsopgave (index) 
wordt bijgehouden. In deze inhoudsopgave staat vermeld: 

— wat de naam is van de verzameling van gegevens die op schijf werd 
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geschreven. 

— wat de soort is van deze verzameling van gegevens. Zijn het pro- 
grammaregels of zijn het andere gegevens? 

— welke sectoren worden bezet door deze gegevens. Totdat deze 
gegevens worden verwijderd, mogen de sectoren, waarin deze 
gegevens staan, niet voor andere doeleinden worden gebruikt. 
MSX-basic waakt hierover. 

Een bij elkaar behorende verzameling van gegevens noemt men in de 
computerwereld over het algemeen een BESTAND of een FILE. De 
MSX-schijveneenheid is een bestandgeoriënteerd medium. Voordat 
gegevens op floppy worden geschreven, dient eerst een bestand te zijn 
gedefinieerd op schijf. Hierop gaan we bij de behandeling van de 
kommando’s verder in. 

MSX verzorgt de besturing van de bestanden (het file management) 
waardoor we als MSX-programmeur niet met de fysieke opbouw van 
de schijveneenheid worden gekonfronteerd. 



3.8 FILES 

Zoals in de vorige paragraaf werd opgemerkt, gaat MSX-basic uit van 
een bestandsstruktuur op schijf. De term FILE of BESTAND zal 
steeds weer terugkeren en is zeer belangrijk. Onthoudt: 

EEN BESTAND OF EEN FILE IS EEN GROEP VAN BIJ ELKAAR 
BEHORENDE GEGEVENS. 

We onderscheiden twee verschillende soorten FILES, namelijk: 

1. de PROGRAM FILE (programmabestand). Zo’n programmabe- 
stand bestaat uit allemaal bij elkaar behorende programmaregels 
die tezamen een programma vormen. Een program file wordt met 
behulp van het SAVE-kommando op de schijf geschreven en met 
behulp van het LOAD-kommando weer in zijn geheel van schijf 
opgehaald. Met een KILL-kommando kan een program file defini- 
tief van de schijf worden gewist. 

2. de DATA FILE (gegevensbestand). Een data file bestaat uit alle- 
maal bij elkaar behorende gegevens. In een data file kunnen we 
bijvoorbeeld de namen, adressen en telefoonnummers van onze 
kennissen opslaan. Ook kunnen we een ander bestand ontwerpen 
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met daarin de gegevens van onze postzegelverzameling, platenver- 
zameling etcetera. Al deze bestanden mogen eventueel op één 
enkele disk staan; MSX-basic zorgt ervoor dat deze gegevens uit 
elkaar worden gehouden. 



3.9 PROGRAM FILES 

De PROGRAM FILE bestaat uit een verzameling van bij ekaar behoren- 
de programmaregels die tezamen een programma vormen. Laten we als 
voorbeeld eens het volgende programma nemen: 

NEW 

Ok 

10 PRINT "MSX-BflSIC *** "s 
20 GOTO 10 
SAVE "PROG" 

Ok 

FILES 

EDIT F'ROG 

KLARH 

Ok 

LOfiD "PROG" 

Ok 

KILL "PROG" 

Ok 

FILES 

EDIT KLfiRfi 

Ok 

In dit voorbeeld werd eerst een NEW-kommando gegeven waarna een 
programma van twee regels werd ingetikt. Hierna werd het programma 
met behulp van een SAVE-kommando op schijf gezet. Vervolgens werd 
het kommando FILES ingetikt; de computer geeft aan welke files nu 
op de schijf staan. Behalve de file PROG (het zojuist op schijf gezette 
programma) bleken er nog twee files op de schijf te staan. 

Vervolgens werd het zojuist op schijf gezette programma weer in het 
computergeheugen ingelezen met behulp van het LOAD-kommando. 
Met het KILL-kommando werd vervolgens het programma PROG 
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weer van schijf verwijderd. Het laatste FILES-kommando laat zien dat 
de program file PROG daadwerkelijk van schijf is verdwenen. 

Bovenstaand voorbeeld vertoont veel gelijkenis met de wijze waarop 
op cassetteband een programma kan worden opgeslagen. Over het 
algemeen wordt een program file met de sleutelwoorden SAVE, LOAD, 
KILL en MERGE benaderd. 

Op deze sleutelwoorden gaan we in hoofdstuk 4 verder in. 



3.10 DATA FILES 

Data files of gegevensbestanden kunnen we weer in twee verschillende 
groepen onderverdelen; 

1 de SEQUENTIAL FILE (sequentieel=in volgorde) 

2 de RANDOM FILE (random=willekeurig) 

De sequential file kan alleen in opklimmende volgorde worden bena- 
derd. Gegevens die in een bepaalde volgorde op schijf weiden gezet, 
kunnen alleen ook weer in deze volgorde worden ingelezen. 

De random file geeft de schijveneenheid zijn grote kracht. De random 
file staat toe dat gegevens in elke volgorde kan worden benaderd. 
Wanneer we bijvoorbeeld onze kennissen nummeren van 1 tot 100 en 
deze vervolgens op schijf zetten, is het bij de random file niet nood- 
zakelijk dat eerst de gegevens van kennis 1 tot en met 99 worden inge- 
lezen om uiteindelijk de gegevens van kennis 100 te weten te komen. 
De gegevens van kennis nummer 100 kunnen onmiddellijk in het 
computergeheugen worden ingelezen. 



3.11 SEQUENTIAL FILES 

De sequential file geeft de mogelijkheid om gegevens achtereenvolgend 
op schijf te zetten. Nadat deze gegevens op schijf zijn gezet, kunnen ze 
ook weer in het computergeheugen worden ingelezen, echter alleen 
in die volgorde waarin ze ook geschreven zijn. 

Gegevensbestanden op cassetteband kunnen eveneens worden be- 
schouwd als sequentiele bestanden. Ook van cassetteband kunnen 
gegevens alleen in die volgorde worden gelezen waarin ze ook geschreven 
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zijn. Het voordeel van een sequential file op schijf is gelegen in snelheid 
en betrouwbaarheid. Gegevens worden vaak 100 maal zo snel van 
magneetschijf ingelezen, terwijl de integriteit (betrouwbaarheid) van 
deze gegevens bijzonder groot is. 

Een voorbeeld: 

NEW 

Ok 

10 OPEN "TEST" FOR OUTPUT fiS #1 
20 LI NE INPUT RS 
30 IF R$~" " THEN 50 
40 PRINT #1,R$ : GQTÖ 20 
50 CLOSE = OPEN "TEST" FOR INPUT AS #1 
60 IF EQF< 1 >-~l THEN CLOSE «STOP 
70 INPUT #1,R*« PRINT RS=G0T0 60 
RUN 

DEZE TEKST WORDT IN EEN SEQUENTIAL 
FILE GESCHREVEN EN ZO METEEN WEER 
AFGEDRUKT. 



DEZE TEKST WORDT IN EEN SEQUENTIAL 
FILE GESCHREVEN EN ZO METEEN WEER 
AFGEDRUKT. 

Break in 60 
Ok 

Op regel 10 wordt een file aangemaakt, genaamd TEST. FOR OUTPUT 
wü zeggen dat gegevens naar deze file geschreven dienen te worden. 
Op regel 20 kan een tekst worden ingegeven. Wanneer daadwerkelijk 
een tekst werd ingegeven, volgt op regel 40 het kommando om deze 
tekst in de file te schrijven. Vervolgens kan dan een nieuwe regel tekst 
(GOTO 20) worden ingegeven. 

Wordt op regel 30 gekonstateerd dat er geen tekst meer werd ingevoerd, 
dan wordt op regel 50 de file eerst gesloten en dan weer geopend, dit 
maal FOR INPUT. FOR INPUT wil zeggen dat gegevens vanuit de file 
dienen te worden ingelezen. Wanneer EOF(l) ongelijk is aan —1, dus 
wanneer nog geen einde bestand werd gekonstateerd, wordt op regel 
70 een volgende regel aan gegevens ingelezen en geprojekteerd op het 
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beeldscherm. Indien op regel 60 een einde bestand werd gekonsta- 
teerd, wordt het bestand gesloten en is het programma ten einde. 

Merk op dat het programma in het geheel geen nieuwe kommando’s 
bevat. Wanneer geen schijveneenheid zou zijn aangesloten, zou hetzelfde 
programma op band zijn werk doen. Het is dan echter wel noodzakelijk 
om de cassette-recorder eerst op opnemen te zetten, vervolgens op 
terugspoelen en uiteindelijk op afspelen. 

Het is erg leerzaam om dit programma een keer op cassette en een 
keer op magneetschijf uit te proberen; het snelheidsverschil is verba- 
zend... 

Het bovenstaande voorbeeld bestuurt een sequentieel bestand. De 
gegevens die eerst werden geschreven, werden daarna noodzakelijker- 
wijs in dezelfde volgorde weer ingelezen. 



3.12 RANDOM FILES 

Om het hoe en waarom van random files goed te begrijpen, is een nadere 
uitleg noodzakelijk. 

We zagen reeds dat we op een magneetschijf meerdere files kunnen 
opslaan. In feite kunnen we de magneetschijf opgedeeld zien in 
FILES. Zo’n file wordt gevormd door een groep van bij elkaar behoren- 
de gegevens. 

Een file kunnen we weer opgedeeld zien in kleinere stukken; de 
RECORDS. 

EEN RECORD IS EEN EENHEID VAN GEGEVENS BINNEN EEN 
FILE. MEESTAL BEVAT EEN RECORD DE GEGEVENS VAN 
ééN OBJEKT, PERSOON OF VERSCHIJNSEL BINNEN DE FILE 
WAARIN DE GEGEVENS VAN MEERDERE OBJEKTEN, PERSO- 
NEN OF VERSCHIJNSELEN ZIJN OPGENOMEN. 

Een voorbeeld: we leggen een bestand aan met daarin verschillende 
gegevens van onze vrienden en kennissen. We spreken af dat elke 
kennis een vast nummer van 1 tot 100 krijgt. 

Per kennis willen we vastleggen: 
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1. Zijn/haar nummer 

2. Zijn/haar naam 

3. Zijn/haar straat 

4. Zijn/haar woonplaats 

5. Zijn/haar telefoonnummer 

Het bestand, dat we KENNIS zullen noemen, bevat dus de gegevens 
van al onze vrienden en kennissen. Eén record uit het bestand bevat 
het nummer, de naam, de straat, de woonplaats en het telefoonnummer 
van één kennis. Het bestand bestaat dus uit diverse records terwijl elk 
record bij precies één kennis hoort. 

Een record kunnen we weer verdeeld zien in verschillende FIELDS of 
velden. In één veld wordt een volledige gegevenseenheid opgeslagen. 
Zo vormt de naam of de woonplaats één van de velden binnen het 
record van een kennis. 

Ter verduidelijking eerst een schema: 

SCHEMA ONDERVERDELING: 

FILE: VELDEN 




NAAM 


STRAAT 


WOONPLAATS 


TELEFOONNR. 


PIET JANSEN 


STRAATWEG 1 1 


SCHIEDAM 


010- 125684 



T 
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FIELD: 



s 


c 


H 


I 


E 


D 


A 


M 





byte 

In het bovenstaande schema zien we ons kennissenbestand weer terug. 
We zien dat we per kennis één record hebben gereserveerd. Per record 
kennen we weer enkele velden. In het voorbeeld lieten we eerst het 
record van kennis nummer 3 zien (Piet Jansen). Vervolgens beschouw- 
den we het veld van de woonplaats binnen dit record (Schiedam). 

Uiteindelijk bestaat een veld natuurlijk uit bytes; de kleinste eenheid 
van gegevensopslag waarin één enkel letterteken kan worden gekodeerd. 

Hieronder volgt een voorbeeld van de besturing van een random file in 
MSX-basic. 

NEW 

Ük 

10 OPEN "KENNIS" AS #1 

20 FIELD #1,1 RS MM$,24 fiS NN$,24 fiS SS* 

,24 ft S WW*, 24 AS TT$ 

30 PUT #1,101 

40 CLS = PRINT "VULLEN KENN I SSENBESTflND " 

50 LOCfiTE 0,3=1 NPUT " KENN I SNUMMER " ) K 
60 IF K=0 THEN CLOSE = STOP 
70 IF K>100 THEN BEEP = GOTO 40 
80 IF KOINTOO THEN BEEP = GOTO 40 
90 GET #1 ,K 

100 IF THEN LSET = LSET N 

N$=" " = LSET SS*=" " = LSET WW$=" " =LSET TT 



110 N$=NN$ 
120 S$=SS$ 
130 W$=WW$ 
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140 T$*TT$ 

150 LÜCATE 0>5 

160 PRINT "NAAM? " ; N$ 

170 PRINT "STRAAT? ";S* 

180 PRINT " WOONPLAATS? ";W$ 

190 PRINT "TELEFOONNUMMER? ";T* 

280 LOCATE 0j 5 

210 INPUT "NAAM" ; N$ 

220 INPUT "STRAAT" ;S* 

230 INPUT "WOONPLAATS" i W$ 

240 INPUT "TELEFOONNUMMER" ; T$ 
250 LSET NN$=N$ : LSET SS$=S$ 

260 LSET WW$=W$ : LSET TT$=T$ 

270 PUT #1,K 
280 GOTO 40 
RUN 



< beeld wordt schoon9emaak t > 



VULLEN KENN I SSENBESTAND 



KENNISNUMMER? 3 

NAAM? PIET JANSSEN 
STRAAT? STRAATWEG 11 
WOONPLAATS? SCHIEDAM 
TELEFOONNUMMER? 010-1 25684 

Met dit programma kunnen honderd verschillende kennissen op de schijf 
worden opgeslagen. Indien een kennis reeds is ingebracht en zijn of 
haar nummer een tweede maal wordt ingegeven, verschijnen de gegevens 
weer op het beeldscherm. Deze gegevens kunnen eventueel worden 
verbeterd of met alleen een return onveranderd worden opgenomen. 
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Merk op dat de kennissen door elkaar heen kunnen worden aangemaakt 
en ook weer door elkaar heen worden opgevraagd. Er is geen verplich- 
ting tot het handhaven van enige volgorde. 

Het bovenstaande programma behandelen we hier globaal; voor de 
preciese betekenis van de kommando’s dient hoofdstuk 4 te worden 
geraadpleegd. 

Op regel 10 wordt het kennissenbestand geopend en eventueel aange- 
maakt als het nog niet eerder bestond. Vervolgens wordt op regel 20 
met het FIELD-kommando de indeling van het record bepaald. Eén 
karakter, MM$, wordt gereserveerd als merkteken. Bij een gevuld record 
wordt deze MM$ op een sterretje gezet als teken dat er goede informatie 
in het record aanwezig is. De velden NN$, SS$, WW$ en TT$ zijn elk 
24 posities lang en zijn bedoeld voor de opslag van mam. straat, 
woonplaats en telefoonnummer. 

Op regel 30 wordt vervolgens record nummer 101 beschreven met 
behulp van het PUT-kommando. Omdat NN$, SS$, WW$ en TT$ nog 
niet werden gevuld, wordt een leeg record geschreven op positie 
nummer 101 in het kennissenbestand. Dit record wordt bij het begin 
geschreven om te voorkomen dat later een input past end foutmelding 
verschijnt. Deze fout kan natuurlijk ook met de ON ERROR GOTO- 
konstruktie worden opgevangen. Echter, we houden het voorbeeld 
hier wat eenvoudig. 

Op regel 40 wordt het beeldscherm schoongemaakt en een kopregel 
afgedrukt. Op regel 50 kan dan een kennisnummer worden ingegeven 
dat op regel 60, 70 en 80 wordt gekontroleerd op juistheid. Het pro- 
gramma stopt indien een kennisnummer nul werd ingegeven. 

Op regel 90 wordt het record van de betreffende kennis ingelezen. 
Door deze GET-intstruktie worden de op regel 20 genoemde variabelen 
(NN$, SS$, WW$, en TT$) automatisch gevuld met de gegevens van 
deze kennis. Ook wordt MM$ gevuld, het merkteken dat aangeeft of 
er zinnige informatie in het record aanwezig is. Indien MM$ ongelijk 
is aan een sterretje, wordt dit veld alsnog gelijk gesteld aan een sterre- 
tje terwijl de andere velden uit het record worden schoongemaakt. 
Merk op dat de velden uit een record met een speciale instruktie (in 
dit geval LSET) dienen te worden gevuld. De velden uit een met 
behulp van het sleutelwoord FIELD gedefinieerd record mogen niet 
zomaar meteen LET- of INPUT-kommando worden behandeld. Daarom 
worden deze velden vervolgens (110-140) ook overgenomen in de 
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velden NS, SS, W$ en T$. 



Op regel 1/150-190 worden de ingelezen gegevens op beeldscherm af- 
gedrukt. Vervolgens kunnen op regel 200-240 de gegevens opnieuw 
worden ingegeven. Doordat op de plaatsen van de INPUT-kommando’s 
al gegevens staan vermeld, worden deze automtisch als waarde voor de 
INPUT genomen wanneer alleen een RETURN-toets wordt ingegeven. 
Ook kunnen deze gegevens met behulp van de diverse besturings- 
toetsen worden gecorrigeerd. 

Op regel 250 en 260 worden de recordvelden met het LSET-kommando 
gelijk gemaakt aan de ingegeven waarden waarna op regel 270 het record 
in het kennissenbestand op de plaats wordt gezet die door de variabele 
K (kennisnummer) wordt aangegeven. 

Uiteindelijk (GOTO 40) kan weer een nieuw kennisnummer worden 
ingegeven* 

In tegenstelling tot het vorige voorbeeld kwamen we in dit laatste 
voorbeeld wat nieuwe sleutelwoorden tegen. De belangrijkste sleutel- 
woorden die we in verband met random files gaan tegenkomen zijn: 

FIELD voor het definiëren van de opbouw van een record 
LSET voor het invullen van een veld 

RSET ook voor het invullen van een veld, maar nu rechts aange- 
schoven 

GET voor het lezen van een record 
PUT voor het schrijven van een record 

Voor een uitgebreide behandeling van deze sleutelwoorden dient 
hoofdstuk 4 te worden geraadpleegd. 



3.13 De grootte van files 

Het zal de oplettende lezer zijn opgevallen dat in de voorbeelden 
nergens op enigerlei wijze de grootte van een bestand werd aangegeven. 
MSX kent een zogenaamde DYNAMISCHE behandeling van bestan- 
den. Hierdoor behoeft een grootte van een bestand niet te worden 
opgegeven; waar nodig vult MSX een bestand steeds aan tot de juiste 
grootte. De enige grens die eraan de grootte van een bestand ligt, is de 
opslagcapaciteit van de magneetschijf. Een eenvoudige rekensom leert 
dat er op een floppy disk van bijvoorbeeld 250 kilobytes een aantal 
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van ongeveer 2500 kennissen met hun namen, straten, woonplaatsen 
en telefoonnummers kunnen worden opgeslagen. De benadering van 
elke kennis afzonderlijk met behulp van het bovenstaande voorbeeld- 
programma kost gemiddeld nog geen seconde... 
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4 DE MSX-DISK SLEUTELWOORDEN EN HUN BETEKENIS 



In dit hoofdstuk worden de MSX-disk sleutelwoorden behandeld. 
Voorafgaand aan deze behandeling worden eerst wat sleutelwoorden 
behandeld die in het grote MSX-handboek reeds werden behandeld 
maar in MSX-disk basic een extra funktie krijgen. Daarna worden de 
nieuwe sleutelwoorden behandeld. Tenslotte worden nog enkele 
sleutelwoorden behandeld die door geen MSX computerfabrikant 
worden gedokumenteerd en veelal niet helemaal goed werken. Het 
lijkt erop dat deze sleutelwoorden in een latere versie van MSX-basic 
nog een funktie gaan krijgen... 

De schrijfwijzen worden in de BNF-notatie gepresenteerd. Deze notatie- 
vorm werd in het grote MSX-handboek uitgebreid behandeld. 

Omdat het hier slechts om een beperkt aantal sleutelwoorden gaat, 
worden deze, in tegenstelling tot in het grote MSX-handboek, hier in 
aanbevolen leervolgorde gepresenteerd. In hoofdstuk 5 vindt u desge- 
wenst een alfabetische opsomming met de bijbehorende paginanum- 
mering. 

Per nieuw sleutelwoord worden de volgende gegevens verstrekt: 

— de naam van het sleutelwoord 

— de moeilijkheidsgraad bij gebruik van dit sleutelwoord. Deze 
moeilijkheidsgraad varieert van zeer eenvoudig tot zeer moeilijk. 

— de soort. We onderscheiden binnen de sleutelwoorden de A-FUNK- 
TIES (funkties met een alfanumeriek resultaat), de N-FUNKTIES 
(funkties met een numeriek resultaat), SYSTEEMVARI ABELEN 
(variabelen met een voorbestemde waarde) en KOMMANDO’S 
(sleutelwoorden die een aktie aangeven. 

— de afkomst. Alle in. MSX-basic voorkomende sleutelwoorden zijn 
afkomstig uit de Engelse taal. Het is vaak gemakkelijker om een 
sleutelwoord en de bijbehorende betekenis te onthouden wanneer 
men de preciese afkomst kent. Daarom is van elk sleutelwoord de 
afkomst naar het Nederlands herleid. 

— de schrijfwijze in de BNF-notatievorm. 
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— de betekenis. De funktie van elk sleutelwoord wordt uitvoerig 
behandeld. Van sleutelwoorden die reeds in het grote MSX- 
handboek werden behandeld, is slechts een aanvullende beschrij- 
ving opgenomen. 

— een voorbeeld. Waar zinvol is een voorbeeld opgenomen. 



4.1 Enkele oude sleutelwoorden wat nader behandeld 



OPEN 



aanvullende betekenis 

Het OPEN-kommando wordt gebruikt om een bestand, een groep van 
bij elkaar behorende gegevens, in te richten c.q. te kunnen gebruiken. 

Het beeldscherm (CRT:), het grafische beeldscherm (GRP:), de printer 
(LPT:) of de cassetterecorder (CAS:) leerden we in het grote MSX- 
handboek reeds kennen. Als nieuwe randapparaten introduceert MSX- 
basic “A “B:...”, enzovoorts als aanduidingen voor de 

eerste schijveneenheid, de tweede, de derde enzovoorts. 

Als aanduiding op welke wijze het bestand dient te worden benaderd, 
zagen we reeds FOR OUTPUT en FOR INPUT. Als bijkomende aan- 
duiding introduceert MSX-basic de aanduiding FOR APPEND waarmee 
we aangeven dat een bestand dient te worden AANGEVULD met 
gegevens. 



de schrijfwijze dient er in BNF dus iets anders uit te zien: 



PIJ 



OFEIM < BESTANDSNAAM > C FOR OLITF'U 
NAAL> AFPElslft' 



ASC#KKA- 



Allereerst volgt hieronder een uitgebreide tabel met voorwaarden in 
verband met het OPEN-kommando: 
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randapparaat 


betekenis 


benadering 


verplicht? 


bestandsnaam 

verplicht? 


kommentaar 


CAS: 


cassette- 

recorder 


for input 
for output 


ja 


nee* 


een cassetterecor- 
recorder moet 
zijn aangesloten 


GRP: 


grafisch 

scherm 


for output 


nee 


nee, 

zinloos 


een grafisch 
scherm moet zijn 
geaktiveerd 


CRT: 


alfanume- 
riek schejm 


for output 


nee 


nee, 

zinloos 


een alfanumeriek 
scherm moet zjjn 
geaktiveerd 


LPT: 


printer 


for output 


nee 


nee, 

zinloos 


een printer moet 
zijn aangesloten 




disk 


for input 
for output 
for append 


nee** 


ja 


een disk unit moet 
zijn aangesloten 


(niets) 


disk 

' 


zie A:/B:/ 





* indien geen bestandsnaam wordt opgegeven: 

- bij FOR OUTPUT wordt een bestand zonder naam aangemaakt 

- bij FOR INPUT wordt het eerste bestand dat op de band woidt tegengekomen, 
geopend 

** indien geen benaderingswee wordt gespecificeerd, wordt een RANDOM bena- 
deringswijze aangenomen. Zie hiervoor de behandeling in hoofdstuk 3 en de 
sleutelwoorden vanaf FIELD. 



Pas op dat een kommando als OPEN “FILE” AS 1, dat in MSX-basic 
een bestand op cassetteband opende, nu plotseling een bestand op 
schijf opent of creëert. 

Voor de disk unit volgen hieronder enkele voorbeelden, gekombineerd 
met de behandeling van de overige ‘oude’ sleutelwoorden. 



MAXFILES 



Met de schijveneenheid krijgt de systeemvariabele MAXFILES pas echt 
een betekenis. Doordat de schijf random benaderbaar is, is het mogelijk 
om meerdere bestanden tegelijk op één schijf te creëren en/of te 
openen. Zelfs lees- en schrijfopdrachten kunnen gekombineerd worden. 
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Wanneer meerdere bestanden dienen te worden geopend, dan dient de 
systeemvariabele MAXFILES gelijk te worden gesteld aan het aantal 
tegelijk te openen bestanden. Een voorbeeld: 

NEW 

Ok 

ia Moycri co--. 

20 OPEN "FILEl " FOR INPUT AS 1 
30 OPEN "FILES" FOR OUTPUT AS £ 

40 ... 

RUN 

Op regel 10 werd bepaald dat er maximaal twee bestanden tegelijk 
mogen worden geopend. Op regel 20 werd vervolgens het bestand 
FILEl geopend. Indien het bestand niet aanwezig is op de disk, volgt 
een foutmelding. Op regel 30 werd het bestand “FILE2” geopend en 
meteen schoongemaakt (met FOR OUTPUT geeft men aan dat men 
NIEUWE gegevens in het bestand wil schrijven). Indien bestand FILE2 
niet aanwezig was, werd het aangemaakt. 

Op regel 40 vervolgt het programma tenslotte. 



CLOSE 



Voordat we dit sleutelwoord verder behandelen eerst een waarschu- 
wing: 

Een bestand dat nog niet is gesloten, is meestal niet helemaal bijgewerkt. 
Indien een disk wordt vervangen door een andere terwijl bestanden 
nog niet gesloten zijn, kan het gebeuren dat de eerste schijf niet volledig 
wordt bijgewerkt terwijl de tweede wordt ‘opgeblazen’ (de gegevens 
worden vaak volledig verminkt). Nadat een programma is onderbroken, 
kunnen bestanden toch nog openstaan; pas bij een poging om het 
programma te veranderen, kan het plotseling gebeuren dat de disk unit 
weer even gaat werken; de openstaande bestanden worden dan als nog 
gesloten. 

Alvorens schijven te verwisselen, moet u zich aanwennen om eerst een 
close-kommando voor de zekerheid in te toetsen zonder regelnummer. 
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Verwijder pas m de Ok-melding de schijf ; er kan dan niets meer fout 
gaan . 

Dus tik eerst in: 

CLOSE 

Qk 

en verwijder dan pas de schijf. 

Het CLOSE-kommando sluit een specifiek bestand; maakt het verder 
onbenaderbaar voor het programma. Alle kanalen kunnen in één keer 
worden gesloten door uitvoering van een enkele CLOSE. Door achter 
het sleutelwoord CLOSE een kanaalnummer te vermelden (eventueel 
voorafgegaan door een hekje) kan een specifiek bestand worden geslo- 
ten, namelijk het bestand dat eerder op het genoemde kanaalnummer 
werd geopend. 



SAVE 



Met het SAVE-kommando kan een programma op een randapparaat 
worden veiliggesteld. 

Het SAVE-kommando krijgt in het MSX-disk basic een iets andere 
funktie dan in het MSX-basic : 



MSX-basic 


MSX-disk-basic 


Indien in de programmanaam 
geen randapparaat wordt gespeci- 
ficeerd, dan wordt de cassette- 
recorder als randapparaat aange- 
nomen. De bevelen: 


Indien in de programmanaam geen 
randapparaat wordt gekodeerd, 
dan wordt de laatste aktieve disk 
(meestal A:) als randapparaat ge- 
nomen. De bevelen: 


SAVE “PROG” 


SAVE “PROG” 


en 


en 


SAVE “CAS:PROG” 


SAVE “A:PROG” 
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hebben dus dezelfde uitwerking 
(wanneer de schijf A: tenminste 
het laatst aktief was). 

Indien het programma naar disk 
wordt geschreven, dan gebeurt dat 
in de kodering waarmee het ook 
in het geheugen staat (verkort). 
Indien het programma NIET naar 
disk wordt geschreven, dan gebeurt 
dit via de ASCII-kodering. 



Voor de bestandsnaam bij een SAVE-kommando gelden dezelfde eisen 
als genoemd bij het OPEN-kommando. Wanneer bij een SAVE naar 
schijf de ,A-optie wordt opgenomen, dan wordt het programma toch 
in ASCII-kodering geschreven. Dit is van belang wanneer het program- 
ma later met een MERGE bij een ander programma dient te worden 
gevoegd. 

Dus: 

SAVE "fi ; PR0G w > A 
Ok 

schrijft het programma PROG op schijf maar dan wel in ASCII-kodering ; 
dezelfde kodering die met een SAVE op band wordt gebruikt. 

In dien met behulp van SAVE een programma met de naam: 

AUTOEXEC.BAS 

op de schijf wordt geschreven, dan zal de computer mits de schijf met 
dit programma zich dan in de eerste schijveneenheid bevindt, de 
volgende keer dat hij wordt aangezet, onmiddellijk beginnen met het 
uitvoeren van dit programma. 



hebben dus dezelfde uitwerking. 

Het programma wordt altijd 
ongekodeerd, teken voor teken 
volgens de ASCII-kodering ge- 
schreven. 



LOAD 



Het LOAD-kommando werkt als eerder in het grote MSX-handboek 
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beschreven met dit verschil dat wanneer geen randapparaat werd ge- 
specificeerd, automatisch de laatst benaderde schijf wordt genomen. 
Zowel programma’s die met de ,A-optie zijn geSAVEdals de program- 
ma’s die zonder deze optie op schijf werden gezet, worden geladen. 



RUN 



Een met SAVE vastgelegd programma kan met een RUN “(programma- 
naam)” worden geladen en direkt worden opgestart. Onder MSX-disk- 
basic wordt indien geen randapparaat werd gespecificeerd, wederom 
de 'laatst benaderde schijf genomen. Zowel programma’s mét als 
zónder ,A-optie kunnen op deze wijze worden geaktiveerd. 



MERGE 



Het MERGE-kommando werkt als eerder in het grote MSX-handboek 
beschreven met dit verschil dat wanneer geen randapparaat wordt 
gespecificeerd, automatisch de laatst benaderde schijf wordt genomen. 
Wanneer een programma met MERGE van schijf wordt geladen, dan 
dient dat programma eerder met de ,A-optie op deze schijf te zijn 
geSAVEd. 



PRINT# 



Het PRINT#-kommando heeft PRECIES dezelfde werking in het 
MSX-disk basic als in het gewone MSX-basic. Het OPEN-kömmando 
bepaalt op welk randapparaat het PRINT# -kommando wordt uitge- 
voerd; het printkommando zelf verandert niet. 



(LINE) INPUT# 
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Ook het (LINE) INPUT#-kommando behoudt in het MSX-disk basic 
precies dezelfde werking. Door het open-kommando wordt bepaald 
vanuit welk randapparaat gegevens worden ingelezen. 



EOF(...) 



De N-FUNKTIE EOF behoudt eveneens dezelfde funktie; het OPEN- 
kommando is bepalend voor het type randapparaat. 

Tot slot volgen hier onder enkele kleine voorbeelden waarin op schijf 
wordt gewerkt en waarin de ‘oude’, hier boven behandelde sleutel- 
woorden worden gebruikt. 

voorbeeld 1 

In dit voorbeeld wordt bestand BES01 op de schijf toegewezen en 
schoongemaakt. Vervolgens kunnen regels tekst worden ingegeven die 
dan in dit bestand worden weggeschreven. Als zodanig kan bijvoor- 
beeld een brief op schijf worden bewaard. 

NEW 

Qk 

Ifi REM VOORBEELD INGRVE TEKST 
2Q CLS : OPEN "BES01 " FOR OUTPUT RS 1 
30 PRINT "GEEF TEKST IN < DEINDE )“• 

40 LINE INPUT R$ : IF R$="*" THEN 60 
50 PRINT #1 / R$ : GOTO 40 
60 CLOSE = STOP 
RUN 

< bee 1 dscheriri wordt schoonSeroaak t ) 

GEEF TEKST IN < T=E I NDE > 

E'©st© Iször^ 

Met deze brief testen we ons eerste 
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voorbeeld even uit. HoPeliJk komt 
deze tekst netjes in bestand BES81 
te staan. 

Hoo9achtend > 



Uw auteur . 

% 

Break i n 68 
Ok 

voorbeeld 2 

In dit voorbeeld wordt bestand BES01 op schijf geopend waarna 
regels tekst kunnen worden AANGEVULD in dit bestand. 

NEW 

Ok 

18 REM VOORBEELD 2, AANVULLEN TEKST 
20 CLS : OPEN "BES01 " FOR APPEND AS 1 
38 PRINT "GEEF TEKST IN < DEINDE >" 

48 LI NE INPUT R$ : IF R$="r* THEN 60 
50 PRINT #1,R$=GÖTÖ 40 
60 CLOSE 1 STOP 
RUN 

(. beeldscherm wordt schoongemaakt ) 

GEEF TEKST IN < T-EINDE > 

P.S. : Als het 9oed is. wordt deze 
tekst no9 aan9evuld. .. 

* 

Break i n 68 
Ok 
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voorbeeld 3 



In dit voorbeeld wordt bestand BES01 geopend en bestand BES02 
toegewezen en schoongemaakt op schijf. Vervolgens worden de regels 
tekst die in BES01 liggen opgeslagen, stuk voor stuk ‘overgeheveld’ 
in bestand BES02. Er kan worden bepaald welke regels wel en niet 
worden overgeheveld. Ook kunnen regels worden tussengevoegd. 

NEW 

Ük 

10 REM VOORBEELD 3, OVERHEVELEN 
28 MAXFILES=2 

30 OPEN "BES01 " FOR INPUT RS 1 
40 OPEN "BES02" FOR OUTPUT RS 2 
50 CLS ; PRINT "0=REGEL OVERSLAAN " 

60 PRINT "1 -REGEL OVERNEMEN" 

70 PRINT "3=Nfi DEZE REGEL TUSSENVOEGEN" 
80 PRINT 

90 IF EOF< 1 > THEN 190 
100 LI NE INPUT # 1 j. R$ 

110 PRINT R$ 

120 K$=IHK'EY$ • IF K**"" THEN 120 

130 IF K$< > " 0 " AND K$< > " 1 " AND K$<>"2" T 

HEN BEER: GOTO 120 

140 IF K$="0" THEN PRINT "VERWIJDERD" : BE 
EP 8 GOTO 100 

150 PRINT #2,R*:IF K$="l" THEN 96 
160 REM TUSSENVOEGEN 
1 70 PR INT" TUSSENVOEGEN <*=EI NDE > " 

180 LINE INPUT R$ : IF R $="*" THEN PRINT " 
EINDE TUSSENVOEGEN" 8 GOTO 30 ELSE PRINT # 
2,R$=G0T0 180 
190 CLOSE 8 STOP 
RUN 

< beeld wordt schoongemaakt) 
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0=REGEL OVERSLAAN 
1=REGEL O VERNEMEN 
3-NA DEZE REGEL TUSSENVOEGEN 



Beste lezer.. 



TUSSENVOEGEN C *=EINDE ) 

H 1 1 ereerst rn i j n harte l i J k e dank voor- 
de aanschaf van dit boekwerkje. 

* 

EINDE TUSSENVOEGEN 
Met deze brief testen we ons eerste 
voorbeeld even u.it. HoPeliJk komt 
deze tekst netjes in bestand BE301 
te staan. 



Hoo9achtend .. 
Uw auteur. 



P.S. = Als het 9oed is> wordt deze 
TUSSENVOEGEN <*»EINDE> 

laatste re9el verwi Jderd. . . 

EINDE TUSSENVOEGEN 

tekst no9 aan9evuld... 
VERWIJDERD 

Break in 198 
Ok 
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voorbeeld 4 

In dit voorbeeld wordt BES02 in BES01 terug gekopieerd en vervol- 
gens verwijderd. Zo kan het programma in voorbeeld 3 steeds worden 
herhaald. 

NEW 

Ok 

10 REM VOORBEELD 4, BES02->BES01 
20 MfiXFILES»2 

30 OPEN "BES02" FOR INPUT AS 1 
40 OPEN "BES01 " FOR OUTPUT AS 2 
50 IF EOF< 1 > THEN 70 

60 LINE INPUT PRINT #2, R* = GOTO 50 

70 CLOSE : STOP 

RUN 

Break in 70 
Ok 

voorbeeld 5 

In dit voorbeeld wordt bestand BES01 regel voor regel ingelezen en 
op beeldscherm afgedrukt. Door op regel 40 de PRINT te vervangen 
door een LPRINT kan worden bewerkstelligd dat de regels op een 
eventuele printer worden afgedrukt. 

NEW 

Ok 

10 REM VOORBEELD 5, PRINT BES01 
20 CLS : OPEN "BES01" FOR INPUT AS 1 
30 IF E0F< 1 > THEN CLOSE : STOP 
40 L I HE I NPUT# 1 j R$ : PRINT R$ » GOTO 30 
RUN 

( wordt schoom9©f4a3.k t ) 

Beste lezer , 
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Allereerst mijn hartelijke dank voor- 
de aanschaf van dit boekwerkje. 



Met deze brief testen we ons e&rste 
voorbeeld even uit. Hopelijk komt 
deze tekst netjes in bestand BËS'01 
te staan. 

Hoogachtend* 

Uw auteur. 



P.S. : Als het 9oed is* wordt deze 
laatste r©9el verwijderd... 

Break in 30 
Ok 

Deze vijf programma’s bij elkaar vormen een héél eenvoudig tekstver- 
werkingspakketje. Misschien een uitdaging voor de amateur om het 
een en ander verder uit te bouwen en te verfraaien... 



4.2 De nieuwe sleutelwoorden 

In deze paragraaf worden de sleutelwoorden behandeld die het MSX- 
disk basic extra biedt. 

Echter, voordat we tot deze behandeling overgaan, dient eerst een veel 
voorkomende term nader te worden uitgelegd en wel de term: 

<BESTANDSAANDUIDING> 

Een bestandsaanduiding is een naamgeving waarmee we geen, één of 
een groep van bestanden kunnen aanduiden. Dit in tegenstelling tot 
een bestandsnaam, waarmee we precies één bestand kunnen aanduiden. 

Om verder op deze term in te gaan, dienen we ons eerst te realiseren 
welke componenten een bestandsnaam op schijf in zich heeft of in 
zich kan hebben: 
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groter is dan 8 letters, ► dan komen de 9e/ 

10e en 11e letter 
automatisch hier 
te staan. 



Allereerst onderscheiden we in de bestandsnaam de schijfaanduiding 
(A:/B:/enz.). 

Vervolgens onderscheiden we de naam van het bestand. 

Achter de naam mag vervolgens een punt worden opgenomen, gevolgd 
door een drie-letterige typeaanduiding. Deze type-aanduiding is geheel 
vrij en mag naar believen worden toegepast. Het is echter raadzaam 
om bij het programmeren een vaste regel in verband met deze typering 
te hanteren. Bijvoorbeeld: 

— een programma op schijf (geen ,A) XXXXXXXX.BAS 

— een programma op schijf (met ,A) XXXXXXXX.ASC 

— een bestand met daarin alleen tekst XXXXXXXX.TXT 

— een sequentieel bestand XXXXXXXX.SEQ 

— een random bestand XXXXXXXX.RAN 

Door alle bestanden van een bepaalde soort ook een bepaalde type- 
aanduiding te geven, zijn deze later (wanneer er tientallen bestanden 
op schijf staan) weer snel bij elkaar te zoeken. 

Een programma kan dus bijvoorbeeld als volgt worden geSAVEd: 

SAVE "AsVBOl.BAS" 

Met A: geven we aan dat het programma op de eerste schijf moet 
worden geschreven. Het programma zelf heet VB01 (voorbeeld 1) en 
is door middel van .BAS tot basic programma getypeerd. 

SAVE "ïOVL.ASC" »A 
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Het programma OVL wordt op de tweede schijveneenheid geschreven. 
Omdat het een ASCII-bestand is (de ,A-optie), krijgt het programma 
de typering ASC mee. 

Schijf-aanduiding en typering mogen worden weggelaten. Indien de 
schijfaanduiding wordt weggelaten, wordt de laatst aangesproken 
schijveneenheid aangenomen. 

In MSX-disk basic is het bij sommige sleutelwoorden noodzakelijk 
om een groep van bestanden tegelijk te kunnen aanduiden. Dit doen 
we met een zogenaamde bestandsaanduiding. 

Een bestandsaanduiding kan allereerst een schijf- aanduiding bevatten 
(bijvoorbeeld A : of B :) maar dit is niet noodzakelijk. 

Vervolgens kan de bestandsaanduiding een bestandsnaam hebben. 
Deze mag geheel worden ingevuld, maar sommige tekensmogen worden 
vervangen door een vraagteken. De groep van bestanden die met die 
bestandsaanduiding wordt bedoeld, mogen in hun naam op deze 
positie elke letter bevatten. 

Vervolgens kan een type-aanduiding worden opgenomen. Voor deze 
typering geldt eveneens dat sommige tekens door een vraagteken mogen 
worden vervangen. Ook mag een typering geheel worden weggelaten. 

Enkele voorbeelden: 



be standsaan duiding 


groep van bestanden die wordt aangeduid 


“BES??” 


alle bestanden op de laatst benaderde schij- 
veneenheid die een naam van 5 letters hebben 
waarvan de eerste drie letters gelijk zijn aan 
BES 


“A:?FILE” 


alle bestanden op schijveneenheid A: (de eerste 
schijveneenheid) met een naam van 5 letters 
waarvan de laatste vier letters gelijk zijn aan 
FILE 


“A:????.BAS” 


alle bestanden op schijveneenheid A: met een 
naam van vier letters en een typering BAS 
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A:PROGRAMM.??? 


alle bestanden op schijveneenheid A: met de 
naam PROGRAMM en een typering van drie 
letters 


Zowel de bestandsnaam als de typering mogen als laatste karakter een 
sterretje bevatten. Met dit sterretje geven we aan, dat de rest van de 
bestandsnaam of de typering er niet toe doet. Bijvoorbeeld: 


bestandsaanduiding 


groep van bestanden die wordt aangeduid 


“BES*.DAT” 


alle bestanden met een naam die begint met 
BES. De lengte van de naam doet er verder 
niet toe. Wel dient het bestand een typering 
DAT te hebben. De bestanden dienen aanwe- 
zig te zijn op de laatst benaderde schijveneen- 
heid 


p*” 


alle bestanden met een typering, beginnende 
met een P op de laatst aangesproken schijf 


*» 


alle bestanden op schijveneenheid A: 



Uiteraard mag een bestandsaanduiding ook gewoon een bestands- 
naam bevatten. De ‘groep’ van bestanden die wordt bedoeld, bevat 
dan altijd maar één bestand. 
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SLEUTELWOORD 



FILES 



moeilijkheidsgraad normaal 

soort KOMMANDO 

afkomst FILES is bestanden 



schrijfwijze 

FILES C < BEST ANDSAANDU I D I NG > ] 

< BEST ANDSAANDU I D I NG > : ! =< A > 
<A>::=<ZIE ALGEMENE SPECIFICATIES> 



Met het sleutelwoord FILES kan worden bekeken, welke bestanden 
zich op een schijf bevinden. Voorbeelden: 



FILES 

FILES "*.DAT" 

FILES "A:P* 

FILES "AïTEST.BAS 



laat zien welke bestanden zich op 
de laatst aangesproken schijf be- 
vinden 

laat zien welke bestanden zich op 
de laatst aangesproken schijveneen- 
heid bevinden met een typering 
DAT 

laat alle bestanden op schijveneen- 
heid A: zien waarvan de namen 
met een P beginnen 
laat zien of bestand TEST .BAS op 
de eerste schijveneenheid voor- 
komt 



Het volgende voorbeeld laat de inhoud zien van zo maar een schijf: 



FILES 

EDIT 


VÖ7 


VÖ2 


V01 


V03 


FRAME 


EKEN 


TEKEN 


TEK 


.DAT TEKRES 


GVL 


V04 


TEKERS 


V05 
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VOS 


TEL 


.DAT 


VOS 


V011 




vos 


vow 




Ok 
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SLEUTELWOORD LrILtS 

moeilijkheidsgraad norma aI 

s 2® rt KOMMANDO 

afkomst LFILES is samentrekking van line printer en 

files - bestanden (bestandsnamen) op afdruk- 
eenheid (printer) afdrukken 

schrijfwijze 

LFILES C < BEST ANDSAANDU I D I NS > 3 
< BEST ANDSAANDU IDING>: : =< A > 

<A>! !=<ZIE ALGEMENE SPECIFICATIES> 



Dit sleutelwoord heeft op één aspekt na precies dezelfde werking als 
het sleutelwoord FILES. Het verschil is, dat LFILES het bedoelde 
overzicht op een eventueel aangesloten printer afdrukt in plaats van 
op het beeldscherm. v 
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SLEUTELWOORD 



KILL 



moeilijkheidsgraad normaal 

soort KOMMANDO 

afkomst KILL is doden, elimineren 



schrijfwijze 

K I LL< BEST ANDSA ANDU I D I NG > 

< BEST ANDSA ANDU I D I NG >s s=<A> 

<A>: : =< ZIE ALGEMENE SPECIFI C AT I ES > 



Met het sleutelwoord KILL kunnen we een bestand of een groep van 
bestanden volledig en in één klap van schijf verwijderen. Bijvoorbeeld: 



KILL 


"BEST.DAT" 


verwijdert bestand BEST.DAT van 
de schijf 


KILL 


"*.DAT" 


verwijdert alle bestanden van schijf 
met typering DAT 


KILL 


"A:*.*" 


verwijdert alle bestanden van schij- 
veneenheid A: 



Het spreekt vanzelf dat met het sleutelwoord KILL met grote voor- 
zichtigheid dient te worden omgesprongen. 
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SLEUTELWOORD 



moeilijkheidsgraad 

soort . . . 

afkomst ...... 

schrijfwijze 



COPY 



...... normaal 

. . KOMMANDO 
COPY is kopiëren 



COPY< BEST ANDS AANDU I B I NG > C TG< BESTANDS- 
AANDUIDING >3 

< BEST ANDS AANDU I D I NG > : : *< A > 

<A>s:=<ZIE ALGEMENE SPECIFICATIES> 



Met het sleutelwoord COPY kunnen complete bestanden of groepen 
van bestanden worden gekopieerd. Bijvoorbeeld: 

COPY 11 A BES 1 11 TG A:BES2" 

Bestand BES1 wordt gekopieerd onder de naam BES2 zodat nu twee 
identieke bestanden onder twee verschillende namen op de eerste 
schijf zijn opgeslagen. 

COPY "T*" TO ” Q* 11 

Alle bestanden waarvan de naam begint met een T en die geen typering 
hebben, worden op dezelfde schijf gekopieerd onder een andere naam. 
De nieuwe naam is gelijk aan de oude naam op één letter na. De eerste 
letter, oorspronkelijk een T, is nu namelijk door een Q vervangen. 

COPY 11 As*. BAS 11 TO “As*. PRO” 

Alle bestanden op schijveneenheid A: met typering BAS worden op 
dezelfde schijf onder dezelfde namen maar onder een andere typering 
(PRG) gekopieerd. 

COPY “BS 11 TO “As” 

Kopieert alle bestanden van de tweede schijveneenheid naar de eerste 
schijveneenheid. Indien er slechts één schijveneenheid aanwezig is, zal 
MSX deze schijveneenheid steeds afwisselend de rol van eerste en 
tweede schijveneenheid laten spelen. Tussendoor vraagt MSX u auto- 
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matisch steeds om de schijf te verwisselen. 

COPY 11 B 5“ 

Indien TO... wordt weggelaten, neemt de MSX-computer automatisch 
aan dat er naar de laatst benaderde schijveneenheid dient te worden 
gekopieerd. Is dit schijveneenheid A:, dan zal de uitwerking van dit 
kommando dezelfde zijn als hierboven beschreven. 

De COPY “B:” TO “A:” biedt ons de mogelijkheid om in één keer de 
hele schijf te kopiëren. Het volgende voorbeeld laat zien hoe dat in 
zijn werk gaat: 

COPY "fin" TO "B : " 

Insert diskette for drive B • 
and strike a kea when reada 

Insert diskette for drive fl ; 
and strike a kea when reada 

Insert diskette for drive B ; 
and strike a kea when reada 

Insert diskette for drive fi : 
and strike a kea when reada 
Ük 

Steeds dient afwisselend de originele en de kopie-schijf te worden aan- 
geboden aan de disk drive. Bij aanvang dient de originele schijf in de 
eenheid te zitten. Stel eventueel met WRITE PROTECT optie het 
origineel veilig. 
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SLEUTELWOORD 



NAME 



moeilijkheidsgraad eenvoudig 

soort KOMMANDO 

afkomst NAME is naam geven 

schrijfwijze 

NAME< BEST ANDSAANDU I D I NG > AS< BESTANDS- 
AANDUIDING> 

< BEST ANDSAANDU I D I NG > : : =< A > 

<A>::=<ZIE ALGEMENE SPECIFICATIES> 



Met het sleutelwoord NAME kan een bestand of een groep van be- 
standen van een nieuwe naam worden voorzien. Bijvoorbeeld: 

NAME "ASFILE. BEST” AS “BEST.FIL” 

verandert de naam van FILE.BES in BEST.FIL op schijf A: 

NAME "As*. BAS” AS ,l *.PR6” 

verandert de typeringen van de betreffende bestanden van BAS naar 
PRG. 

NAME ”B??? M AS "Q???” 

op de laatst aangesproken schijveneenheid worden de bestanden met 
een naam van vier letters beginnende met een B van een andere naam 
voorzien. De nieuwe naam van die bestanden begint met een Q en is 
verder gelijk aan de oude naam. 
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SLEUTELWOORD 



DSKF 



moeilijkheidsgraad normaal 

soort N-FUNKTIE 

afkomst DKSF is samentrekking van disk en free — 



vrije ruimte op schijf 



schrijfwijze 

DSKF ( < SCH I JFNUMMER > ) 

< SCH I JFNUMMER > * :=<A> 

<A>3 5=<ZIE ALGEMENE SPECIFICATIES) 



Met het sleutelwoord DSKF kan de vrije ruimte die nog op een schijf 
over is, worden opgevraagd. Als schijfnummer kan het werkelijke schijf- 
nummer worden opgegeven (1 ,2,3 . . . komt overeen met A:,B:,C: . . .) 
of kan een nulwaarde worden opgegeven, waarmee dan de laatst bena- 
derde schijf kan worden bedoeld. Indien de numerieke uitdrukking die 
de schijveneenheid bepaalt, een decimale fraktie bevat, dan wordt deze 
verwaarloosd. 

De waarde die de DSKF-funktie als resultaat geeft, kan verschillende 
betekenissen hebben, afhankelijk van het merk en type van de schijven- 
eenheid. Meestal wordt een numerieke waarde toegekend die gelijk is 
aan het aantal KILOBYTES dat nog vrij is op de schijf. Bijvoorbeeld: 



PRINT DSKF< 0 > 
273 
ük 

SAVE "TEST" 

Qk 

PRINT DSKF< 0 ) 
272 
Ük 



In het Dovenstaande voorbeeld bleken op een bepaalde schijf nog 273 
kilobytes aan ruimte over te zijn. Het daarna op schijf gezette pro- 
gramma bleek een kilobyte aan vrije ruimte te bezetten. 
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SLEUTELWOORD 



LOF 



moeilijkheidsgraad normaal 

soort . . N-FUNKTIE 

afkomst LOF is afkorting van lengthe of file - lengte 



van het bestand 

schrijfwijze 

LOF (< KANAAL >) 

(KANAAL >2 s~<N> 

<N>::=«ZIE ALGEMENE SPECIFICATIES» 



Met het sleutelwoord LOF kan de lengte van een bestand worden be- 
paald. Tussen haakjes dient een uitdrukking te worden genomen die 
het kanaalnummer aangeeft waarop het betreffende bestand eerder 
werd geopend. Indien deze numerieke uitdrukking een decimale fraktie 
bevat, wordt deze verwaarloosd. Het resultaat van deze funktie is een 
waarde die de lengte van het gehele bestand in BYTES uitdrukt. 

Bijvoorbeeld: 

NEW 

Ok 

10 OPEN w TEK ■ DPT M AS 1 
20 PRINT LQF< 1 ) 

30 CLOSE 
RUN 
1376 
Ok 

In het bovenstaande voorbeeld bleek bestand TEK.DAT 1876 bytes 
lang te zijn. 
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SLEUTELWOORD 



FIELD 



moeilijkheidsgraad 
soort ........ 

afkomst 

schrijfwijze 

FIELD [ # 3 < KANAAL X RECORD I NDEL I NG > 

< RECORD I NDEL I NG > ::={>< VELDLENGTE >AS 
< VELDNAAM» \<NIETS> 
k ’ ANAAL *> s s =< N > 

< VELDLENGTE >: :=<N>\< - . . X VAR I ABELE- 
NAAM > 

< VELDNAAM >s :«< ALFANUMERIEKE VAR I ABELE > 
<N>:ï»<ZIE ALGEMENE SPECIFICATIES> 

< VAR I ABELE-NA AM > s s =< ZIE ALGEMENE SPE- 
CIFICATIES)' 

< ALFANUMERIEKE VARIABELE» :*<ZIE AL- 
GEMENE SPEC I F I CAT I ES > 



Wanneer we in MSX-basic met RANDOM FILES willen werken, dienen 
RECORDS te definiëren (zie de in hoofdstuk 3 behandelde stof)- Het 
definiëren van records dienen we in MSX-basic met het FIELD-sleutel- 
woord te doen. Voorafgaand aan het F I E LD -k o m man do dient een 
OPEN-kommando te zijn opgenomen dat een RANDOM-bestand op 
het betreffende kanaal opent. Dit openen dient niet met één van de 
toevoegingen FOR INPUT, FOR OUTPUT of FOR APPEND te ge- 
schieden. 

Na het openen dient de recordsamenstelling met het FIELD-kommando 
te worden gedefinieerd. 

Na het FIELD-sleutelwoord dient eerst, al dan niet voorzien van een 
hekje, het kanaalnummer te worden opgenomen. Dit kaaaalnummer 
moet in waarde gelijk zijn aan het kanaalnummer waarover het betref- 
fende bestand werd geopend. Een eventuele decimale fraktie wordt 
verwaarloosd. 



normaal 

KOMMANDO 

FIELD is veld, gebied 
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Vervolgens dienen per veld de lengten van dat veld (in bytes) en de 
naam van dat veld (gewoon de naam van een alfanumerieke variabele) 
te worden opgenomen. 

Bijvoorbeeld: 

NEW 

uk 

10 OPEN "KENNIS” AS #1 

28 FIELD #1,1 AS MM$,24 AS NN$,24 AS SS$ 

,24 AS WW$, 24 AS TT$ 

In dit voorbeeld wordt op regel 10 eerst het bestand KENNIS geopend. 
Indien het betreffende bestand nog niet aanwezig was, wordt het ge- 
creëerd. 

Op regel 20 wordt van het RANDOM bestand KENNIS de recordsa- 
menstelling bepaald. Het record bestaat uit een veld met MMS (1 byte 
lang), een veld NN$ (24 bytes lang), een veld SS$ (24 bytes lang), een 
veld WW$ (24 bytes lang) en een veld TT$ (24 bytes lang). Het totale 
record is dus 1 +24+24+24+24=97 bytes lang. 

Het bovenstaande voorbeeld is een gedeelte van het voorbeeld dat in 
hoofdstuk 3 werd getoond. In de verdere behandeling zullen we ons 
waar mogelijk aan dit voorbeeld houden. 
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SLEUTELWOORD LSET 



moeilijkheidsgraad normaal 

soort KOMMANDO 

afkomst LSET is afkorting van left set — links klaarzetten 



schrijfwijze 

LSEK VELDNAAM >=< A > 

< VELDNAAM > : : =< ALF ANUMER I EKE VAR I ABELE > 

< ALFANUMERIEKE VARIABELE>: :=<ZIE ALGE- 
MENE SPEC I F I CAT I ES > 

<A>: :=<ZIE ALGEMENE SPECIFICATIES> 

Variabelen die met behulp van het FIELD-kommando als naam zijn 
toegekend aan een veld uit een record, mogen niet zo maar op de ge- 
bruikelijke wijze aan een waarde worden gelijkgesteld. De FlELD-va- 
riabelen zijn zeer speciale variabelen in MSX-basic die alleen met het 
LSET, RSET of GET -kommando van waarde mogen worden veranderd. 
Wanneer we bijvoorbeeld zouden programmeren: 

NEW 

Ok 

10 OPEN "KENNIS” RS #1 

20 FIELD #1,1 RS MM$,24 RS NN$,24 RS SS$ 

,24 fiS WW*, 24 RS TT* 

30 NN*=" GERT- JAN JANSSEN" 

dan koppelen we het veld NN$ af van het FIELD-kommando en wordt 
het verder onbruikbaar voor de bestandsbenadering. 

Met het LSET -kommando kunnen we een waarde aan een recordveld 
toekennen. Deze waarde wordt dan LINKS in het recordveld aange- 
sloten terwijl het recordveld vervolgens eventueel met spaties wordt 
aangevuld. Bijvoorbeeld: 

250 LSET NN*»H* • LSET SS$=S* 

260 LSET WW*-W* : LSET TT*=T* 

Uitgaande van het voorbeeld, gegeven onder FIELD, worden in dit 
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voorbeeld de velden NN$, SSS, WW$ en TT$ gelijkgesteld aan N$, S$, 
W$ en T$. Alle vier de veldwaarden worden tot 24 posities aangevuld 
met spaties. 
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SLEUTELWOORD RSET 



moeilijkheidsgraad normaal 

soort KOMMANDO 

afkomst . RSET is afkorting van right set — rechts klaar- 



zetten 



schrijfwijze 

RSET < VELDNAAM >=< A > 

< VELDNAAM > : : =< ALFANUMER I EKE VAR I ABELE > 
< ALFANUMERIEKE VARIABELE >5 !=<2TE ALGE- 
MENE SPECIFICATIES:::- 
< A > : Ï =< Z I E ALGEMENE SPEC I F ï C AT I ES > 



Het RSET-sleutelwoord heeft ongeveer dezelfde betekenis als het 
LSET-sleutelwoord. Het verschil is, dat RSET de betreffende waarde 
RECHTS in het recordveld aansluit. Bijvoorbeeld: 

NEW 

Ük 

10 OPEN "FILE" AS 1 
20 FIELD #1/10 FIS Sfi$ 

30 RSET SA$="123.45" 

40 PRINT Sm 
50 STOP 
RUN 

123.45 
Break i n 50 
Ok 

Bovenstaand voorbeeld laat zien dat een met behulp van RSET aan 
een veld toegekende waarde rechts uitgelijnd wordt geplaatst. 
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SLEUTELWOORD 



moeilijkheidsgraad 

soort 

afkomst 

schrijfwijze 



PUT 



normaal 

KOMMANDO 

PUT is zetten, plaatsen 



PUI E # K KANAAL > C t< RECORD > 3 
< KANAAL >: !=<N> 

< RECORD >: :=<N> 

<N>ïï=<ZIE ALGEMENE SPECIFICATIES^ 



Met het PUT-kommando kan een kompleet record (dus meerdere vel- 
den) in het bestand worden geschreven. Het record dat wordt geschre- 
ven, moet in een FIELD-kommando zijn gespecificeerd terwijl alle 
velden met een LSET of een RSET (of eventueel een GET) dienen te 
zijn gevuld. 

Achter het PUT-kommando dient eerst eventueel een hekje en daarna 
het kanaalnummer te worden opgenomen. Een eventuele decimale 
fraktie wordt verwaarloosd. Vervolgens kan een recordnummer worden 
opgenomen. Dit recordnummer bepaald als hoeveelste record het be- 
treffende record in het bestand wordt geschreven. Een eventuele deci- 
male fraktie wordt verwaarloosd. 

Uitgaande van het voorbeeld, gegeven onder FIELD en LSET, schrijft 
het kommando: 

276 PUT #1,R 

het record, bestaande uit MM$, NN$, SS$, WW$ en TT$, in bestand 
KENNIS. Als hoeveelste record het betreffende record wordt geschre- 
ven, wordt bepaald door de variabele R. 

Wanneer een recordnummer wordt weggelaten, dan wordt het record 
■ automatisch als volgende record geschreven. Indien na het openen van 
het bestand nog niet eerder een PUT of GET werd uitgevoerd, dan 
wordt het eerste record geschreven. 
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SLEUTELWOORD 



moeilijkheidsgraad 

soort 

afkomst 

schrijfwijze 



GET 



normaal 

KOMMANDO 

GET is krijgen, pakken 



GET C#3< KANAAL > C > < RECORD > ] 

< KANAAL): !=<N> 

< RECORD >: :=<N> 

<N>! :=<ZIE ALGEMENE SPECIFICATIES) 



Het GET-kommando werkt precies tegenovergesteld aan het PUT- 
kommando ; de velden van een bepaald record worden juist ingelezen 
Uitgaande van het voorbeeld, gegeven onder FIELD, LSET en PUT 
leest het kommando: ’ 

280 GET #1,R 



het record weer in. Door dit ene, eenvoudige kommando worden de 
velden MM$, NN$, SS$, WW$ en TT$ weer vanaf de schijfingelezen. 



Indien het recordnummer wordt weggelaten, wordt het volgende (of 
eerste) record ingelezen (als PUT). ' 



Met de tot nu toe behandelde kommando’s en funkties kan al volledig 
worden gewerkt met random bestanden. 

In hoofdstuk 3 werd reeds een voorbeeld van een bestandsonderhouds- 
programma gegeven. Dat voorbeeld wordt hier nog eens geplaatst: 

NEW 

Ok 

10 OPEN "KENNIS" flS #1 

28 FIELD #1,1 RS MM*, 24 RS NN$,24 flfi SS$ 

.-24 as ww$,24 as tt$ 

30 PUT #1,101 

40 CLS PR I NT " VULLEN KENN I SSENBESTaND " 
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50 LÖCATE 0,3= INPUT "KENNISNUMMER"- 
60 IF K=0 THEH CLOSE = STOP 
70 IF K>100 THEN BEER = GOTO 40 
80 IF KOINTCK) THEH BEEF' = GOTO 40 
90 bE f : N= 1 , K 

100 IF MM$< > " $ " THEH LSET MM*«"*" = 

H$= " " = LSET SS$=" " = LSET WW*=" " =L 
" " 

110 H$=HN$ 

120 S$=SS$ 

130 W$=WW$ 

140 T$=TT$ 

150 LOCHTE 0,5 

160 PRINT "NAAM? " H$ 

170 PRINT "STRAAT? ";S* 

180 PRINT "WOONPLAATS? ";W$ 

190 PRINT "TELEFOONNUMMER? ";T$ 

200 LOCATE 8,5 
210 INPUT "NAAM" ;N$ 

220 INPUT "STRAAT" ;S$ 

230 INPUT "WOONPLAATS" ; W$ 

240 INPUT "TELEFOONNUMMER", T$ 

250 LSET NN$=M$ = LSET SS*»S* 

260 LSET WW$==W$ = LSET TT$==T$ 

270 PUT # 1 , K 
280 GOTO 48 
RUN 



< bee 1 d wordt schoons ©maak t ) 



VULLEN KENN I SSENBES TAND 



iK 



LSET N 
SET TT 
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KENNISNUMMER? 3 

NAAM? PIET JANSSEN 
STRAAT? STRAATWEG 11 
WOONPLAATS? SCHIEDAM 
TELEFOONNUMMER? 0 1 0- 1 25684 

Op regel 10 wordt het bestand geopend en eventueel aangemaakt. Het 
bestand krijgt kanaal 1 toegewezen. 

Op regel 20 wordt de recordindeling gespecificeerd. Het record bestaat 
in dit geval uit: 

MM$ dit veld bevat een sterretje indien het record door het pro- 
gramma eerder werd gevuld. 

NN$ dit veld bevat de naam van de kennis waarvan we de gegevens 
willen opslaan. 

SS$ dit veld bevat straat en huisnummer van de betreffende 
kennis. 

WWS dit veld bevat postkode en woonplaats van de betreffende 
kennis. 

TT$ dit veld bevat het telefoonnummer van de betreffende 
kennis. 

Veld MM$ kan maximaal 1 positie lang zijn; de overige velden hebben 
allemaal een maximale lengte van 24 posities. 

Op regel 30 wordt record nummer 101 geschreven. In het bestand 
KENNIS willen we maximaal 100 kennissen opslaan. Om er voor te 
zorgen dat we later bij een GET van een nog niet eerder geschreven 
record een foutmelding krijgen, passen we de truc toe dat we het 
hoogst mogelijke record plus 1 schrijven. Alle onderliggende records 
worden, alhoewel ze met onzinnige gegevens gevuld kunnen zijn, dan 
wel als gedefinieerd beschouwd. Een GET op één van deze records 
geeft dan geen foutmelding meer. 

Op regel 40 wordt het beeldscherm opgemaakt en op regel 50 kan een 
kennisnummer worden ingegeven. Op regel 60, 70 en 80 wordt gekon- 
troleerd of het ingegeven nummer wel groter dan 0, kleiner dan 101 
en geheel is. Indien een nul werd ingegeven, wordt het programma na 
een CLOSE (afsluiten van het bestand) beëindigd. 
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Op regel 90 wordt het record met het ingegeven (kennis)nummer gele- 
zen. Op regel 100 wordt vervolgens gekontroleerd of het record reeds 
eerder werd geschreven (MM$ moet dan gelijk zijn aan een *). Indien 
dit niet het geval is, worden de recordvelden allemaal met behulp van 
het LSET-kommando op spaties gesteld terwijl MM$ nu wel aan een 
sterretje wordt gelijkgesteld. 

Op regel 110, 120, 130 en 140 worden de variabelen N$, S$, W$ en 
T$ gelijk gesteld aan NN$, SS$, WW$ en TT$. De recordvelden worden 
ter verdere bewerking overgeheveld in niet aan het record gekoppelde 
variabelen. 

De regels 150, 160, 170, 180 en 190 dragen er zorg voor, dat de inhoud 
van het zojuist ingelezen record netjes op het beeldscherm wordt 
geprojekteerd. De regels 200, 210, 220, 230 en 240 staan vervolgens 
nieuwe ingaven voor de betreffende variabelen (N$, S$, W$ en T$) 
toe. Doordat deze ingaven (zie de LOCATE op 150 en 200) over de 
projektie heen wordt uitgevoerd, wordt bewerkstelligd dat de ingave 
van alleen een RETURN de betreffende variabele gelijkstelt aan de 
oude waarde. Ook kunnen de reeds geprojekteerde gegevens met de 
MSX full-screen editor worden bewerkt. 

Dit over elkaar projekteren en ingeven is een leuke truc die in MSX 
mogelijk is en krachtig programmeren toestaat. 

Op regel 250 en 260 worden op gebruikelijke wijze de recordvelden 
weer op de juiste waarden gebracht. De records worden netjes rechts 
aangevuld met spaties tot de geldende veldlengten. 

Op regel 270 wordt het eerder opgehaalde record weer op dezelfde 
plaats in het bestand teruggeschreven waarna (GOTO 40) een volgend 
kennisnummer kan worden ingegeven. 

Het spreekt voor zich dat dit programma naar eigen wens kan worden 
aangepast. De ervaren amateur maakt met behulp van dit programma 
in een kwartiertje zijn eigen bestandsonderhoudsprogramma waarin hij 
of zij de gegevens van de leden van een voetbalclub, een postzegel- 
verzameling en dergelijke bijhoudt. 

Het is echter raadzaam om deze pogingen nog niet al te serieus te 
ondernemen ; achter in dit boekje is een programma opgenomen waar- 
mee iedereen binnen enkele MINUTEN zijn eigen bestandsonder- 
houdsprogramma samenstelt... 
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SLEUTELWOORD 



LOC 



moeilijkheidsgraad 

soort 

afkomst 



normaal 

. . N-FUNKTIE 

LOC is afkorting van location — locatie, plaats 



schrijfwijze 

LOC « KANAAL >) 

< KANAAL >: 8=<N> 

<N>: :=<ZIE ALGEMENE SPECIFICATIES) 



Met de LOC-funktie kan worden opgevraagd, op welke positie in het 
betreffende bestand we ons op een bepaald moment bevinden. 

Hiertoe dient tussen haakjes een uitdrukking te worden opgenomen 
die in waarde het kanaalnummer voorstelt waarover het te onderzoeken 
bestand eerder werd geopend. Een decimale fraktie wordt verwaarloosd. 

De LOC-funktie kan, afhankelijk van het betreffende bestandstype, 
twee verschillende soorten waarden als resultaat geven : 

een niet random bestand (geopend met FOR INPUT/OUTPUT/ 
APPEND) 

LOC geeft het aantal bytes aan dat het bestand op het moment van 
opvragen groot is. LOC geeft altijd een veelvoud van 256 bytes waar- 
door LOC slechts een globale indikatie geeft van de grootte van het 
bestand. 

Bijvoorbeeld: 

NEW 

Ok 

18 OPEN "TEST" FOR OUTPUT AS 1 
28 PRINT IJS ING "### " ;LQCX 1 '?> 

30 PRINT #1 j "DIT IS EEN TEST" = GOTO 20 
RUN 

0 0 0 0 0 0 0 0 0 0 
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000000 256 256 256 256 
256 256 256 256 256 256 256 256 256 256 
256 512 512 < . . . etcetera > 

een random bestand (geopend zonder FOR INPUT/OUTPUT/ AP- 
PEND) 

LOC geeft het recordnummer aan van het laatst benaderde record. 
Bijvoorbeeld: 

NEW 

Ok 

10 OPEN "KENNIS" AS 1 
20 PRINT US ING "### ";L0C<1>; 

30 GET 1 : GOTO 20 



RUN 

0 


1 


2 3 4 5 6 


7 


8 9 


10 


11 


12 13 14 15 16 


17 


18 19 


20 


21 


22 23 24 25 26 


27 


28 29 


30 


31 


32 C . . . etcetera ) 







Merk op dat een GET kan worden gegeven (30) zonder dat een record 
met FIELD is gedefinieerd. Het binnengehaalde record is dan echter 
niet benaderbaar. 
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SLEUTELWOORD 



MKI$ 



moeilijkheidsgraad 



soort . . 
afkomst 



.vrij moeilijk, kennis van de opslagmethodiek 
van numerieke en alfanumerieke variabelen is 
een voordeel 

A-FUNKTIE 

,MKI$ is afkorting van make integer value 
string — maak string van integere waarde 



schrijfwijze 

MKI$ (<IM>) 

<N>::=<ZIE ALGEMENE SPECIFICATIES) 



Wanneer we numerieke gegevens in een bestand willen schrijven, 
dienen we deze gegevens eerst te converteren naar een alfanumeriek 
gegeven. Pas nadat we het kommando: 

LET V*=STR*(V) 

hebben uitgevoerd, kunnen we de waarde van de variabele V in een 
record opnemen en vervolgens schrijven. Andersom wordt V na het 
lezen van dit record weer op de juiste waarde gezet door een: 

LET V=VAL(V*> 

Wanneer in bovenstaand voorbeeld de variabele V een waarde heeft 
van 12345678, dan zijn er minimaal acht bytes nodig om deze waarde 
volgens bovenstaand recept in een bestand te schrijven. Echter, in het 
computergeheugen beslaat deze variabele V maar 4 bytes aan geheu- 
genruimte. Dit komt doordat de interne opslag van numerieke varia- 
belen in het MSX-computergeheugen op een bepaalde wijze zijn geko- 
deerd, afwijkend van de ASCII-kodering. 

Om nu dit verlies van ongeveer 100 % aan schijfruimte te kunnen voor- 
komen, biedt MSX de mogelijkheid om een variabele in een string te 
plaatsen zoals deze ook in het geheugen is gekodeerd. Hierdoor kan 
een integere waarde altijd in twee bytes, een waarde van enkelvoudige 
precisie in vier bytes en een waarde van dubbele precisie in acht bytes 
worden gekodeerd. Een bijkomend verschijnsel is, dat de conversie van 
numerieke waarde naar string-waarde door de computer op deze wijze 



67 



sneller kan worden uitgevoerd. 

Het kommando: 

LET V*=MKI*<V> 

resulteert altijd in een alfanumerieke variabele van twee bytes lang. 
Wanneer we met een: 

PRINT V$ 

de waarde van V$ proberen te achterhalen, krijgen we op het scherm 
slechts zinloze gegevens ; de informatie is niet volgens de ASCII-kodering 
in de string opgenomen en dus niet zondermeer dekodeerbaar. 

Echter, wanneer we intikken: 

LET V=eVI(V*) 

PRINT V 

dan zal de computer met de juiste waarde reageren; de funktie CVI is 
in staat om van de schijnbaar zinloze informatie in V$ weer een juiste 
numerieke waarde te maken. 



Voor deze optimale conversie van numerieke waarden naar strings en 
omgedraaid, kennen we zes verschillende funkties: 



FUNKTIE 


resultaat 


lengte 

van de string 


tegenovergestelde 

funktie 


V$=MKI$(V) 


een integere waarde 
wordt naar een alfa- 
numerieke waarde ge- 
converteerd 


2 bytes 


V=€VI(V$) 


V$“MKS(V) 


idem voor een waarde 
van enkelvoudige pre- 
cisie 


4 bytes 


V=€VS(V$) 


V$=MKD$(V) 


idem voor een waarde 
van dubbele precisie 


8 bytes 


V=CYD(V$) 



Steeds zijn als voorbeeld de variabelen V en V$ gebruikt; elke andere 
variabele is natuurlijk toegestaan. 



68 
















Numerieke waarden kunnen in een random bestand als volgt worden 
verwerkt: 



NEW 

Ok 

10 OPEN "TEST" fiS 1 
20 FIELD #1, 2 RS SSL 4 fiS T$,ö fiö U$ 
30 S7i-32767 = S ! * 1 23456 ! « S#= 1 . 234E+36 
50 LSET S*=MKI*< > ■ LSET T$-MKS$«.S! ;■ 
60 LSET U$=MKD$< S# > 

70 PUT 1 , 20 : S2=0 : S ! =0 ! S#=0 
80 GET 1,20 = S*-CVI< S* > ’ S ! =CVS(. T$ ;• 

90 S#=CVD< U$ > : PR INT S^iSliS# 

100 CLOSE ; KILL "TEST" -STOP 
RUN 

32767 123456 1 ■ 284E‘i"36 

Break i n 1 00 
Ok 



In het bovenstaande voorbeeld worden drie verschillende typen nume- 
rieke variabelen gevuld en geconverteerd naar string-variabelen. Deze 
stringvariabelen worden in bestand TEST geschreven. Vervolgens 
worden ze weer ingelezen en worden deze variabelen weer naar nume- 
rieke variabelen geconverteerd en afgedrukt. Uiteindelijk wordt bestand 
TEST van schijf verwijderd. 

PASOP' 

Wanneer via MKI$%, MKS$ en MKD$ geconverteerde variabelen in een 
bestand dienen te worden geschreven, dan mag dat slechts een random 
bestand zijn. Het printen van dergelijke stringwaarden in een sequenti- 
eel bestand geeft onherroepelijk moeilijkheden bij het latere teruglezen. 
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SLEUTELWOORD MKS$ 

moeilijkheidsgraad . . vrij moeilijk, kennis van de opslagmethodiek 
van numerieke en alfanumerieke variabelen 
is een voordeel 

soort A-FUNKTIE 

afkomst MKS$ is afkorting van make single precision 

value string — maak string van enkelvoudige 
precisie variabele 

schrijfwijze 

MKS|<<N>) 

<N>5 :<ZIE ALGEMENE SPECIFICATIES:* 



Dit sleutelwoord wordt onder MKI$ behandeld; zie aldaar. 



SLEUTELWOORD 



MKD$ 



moeilijkheidsgraad 



soort . 
afkomst 



.vrij moeilijk, kennis van de opslagmethodiek 
van numerieke en alfanumerieke variabelen is 



een voordeel. 



A-FUNKTIE 



MKD$ is afkorting van make doublé precision 
value string - maak string van dubbele preci- 
sie variabele 



schrijfwijze 



MKD*(<N>) 

<N>T:=<ZIE ALGEMENE SPECIFICATIES^ 

Dit sleutelwoord wordt onder MKI$ behandeld , zie aldaar. 
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SLEUTELWOORD CVI 

moeilijkheidsgraad . . vrij moeilijk, kennis van de opslag methodiek 
van numerieke en alfanumerieke variabelen is 
een voordeel 

soort : N— FUNKTIE 

afkomst . *■ . CV1 is afkorting van convert to integer value 

— zet over naar integere waarde 

schrijfwijze 

CV I ( < A > ) 

<A>: :=<ZIE ALGEMENE SPECIFICATIES)* 

Dit sleutelwoord wordt onder MK1$ behandeld; zie aldaar. 
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SLEUTELWOORD 



CVS 



moeilijkheidsgraad . 



soort . 
afkomst 



vrij moeilijk, kennis van de opslag methodiek 
van numerieke en alfanumerieke variabelen is 
een voordeel 

N-FUNKTIE 

CVS is afkorting van convert to single preci- 
sion value - zet over naar enkelvoudige preci- 
sie waarde 



schrijfwijze 

CVS ( < A > ) 

<A>: :=<ZIE ALGEMENE SPECIFICATIES) 



Dit sleutelwoord wordt onder MKI$ behandeld; zie aldaar. 
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SLEUTELWOORD 



CVP 

moeilijkheidsgraad . . .vrij moeilijk, kennis van de opslagmethodiek 
van numerieke en alfanumerieke variabelen is 
een voordeel 



soort N-FUNKTIE 

afkomst ......... CVD is afkorting van convert to doublé pred- 

sion value — zet over naar dubbele predsie 
waarde 



schrijfwijze 



CVD < < A > ) 

<A>::=<ZIE ALGEMENE SPECIFICATIES> 



Dit sleutelwoord wordt onder MKI$ behandeld; zie aldaar. 
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4.3 Wat minder belangrijke, oude sleutelwoorden 
wat nader behandeld 

In de vorige paragrafen werden de meest belangrijke sleutelwoorden 
behandeld. Enkele wat minder belangrijke sleutelwoorden die in het 
grote MSX-handboek reeds werden behandeld, worden hier wat nader 
uit ge werkt: 



VARPTR 



Ook voor op schijf opgeslagen bestanden geeft deze funktie de waarde 
van het adres van het zogenaamde FILE C ONTROL BLOCK in het 
geheugen. 



CALL 



Twee CALL’s zijn met name belangrijk bij het gebruik van schijven- 
eenheden: 

1 . Om schijven te kunnen formatteren (zie hoofdstuk 3) dient een 
CALL te zijn voorgeschreven door de fabrikant van de schijven- 
eenheid. Meestal luidt deze call: CALL FORMAT. 

2. Wanneer het MSX-basic vanuit een van schijf geladen diskoperating 
system werd opgestart (MSX-DOS of CP/M) dan kan meestal door 
ingave van het kommando CALL SYSTEM naar dit operating 
system worden teruggekeerd. 



BLOAD en BSAVE 



Ook op schijf kunnen gegevens rechtstreeks uit het computergeheugen 
worden opgeslagen. BLOAD en BSAVE kiezen in de disk-versie van 
MSX automatisch voor de schijf indien geen ander randapparaat (b.v. 
CAS:) werd aangegeven. 
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4.4 Enkele merkwaardigheden 

Het MSX-basic bevat in de 1.0 versie enkele verschijnselen die merk- 
waardig aandoen en waarschijnlijk fout zijn. Meestal gaat het om dingen 
die het noemen nauwelijks waard zijn. 

Daarop is echter één uitzondering: 

EEN RECORD IN EEN RANDOM FILE BESLAAT ALTIJD 256 
BYTES, HOE DE INDELING DOOR HET FIELD-KOMMANDO 
OOK WERD BEPAALD. 

Wanneer we bijvoorbeeld het volgende programma schrijven: 

NEW 

Ok 

10 OPEN "TEST" AS 1 
20 FIELD #1/1 fi S fi* 

30 LSET 

40 FÖR 1*1 T0 10 -PUT 1‘NEXT 
50 PRINT LQF< 1 ) : CLOSE : STOP 
RUN 
2560 

Break in 50 
Ok 

dan blijkt dat de lengte van het bestand reeds 5120 bytes is terwijl er 
effektief pas 10 bytes in zijn geschreven. 

De oplossing: om de schijfruimte toch zo efficiënt mogelijk te gebrui- 
ken, dienen records met grote recordlengten te worden gebruikt. 
De slimme programmeur wijst één groot record toe met FIELD en 
verdeelt deze programma-technisch zelf in kleinere parten. 



4.5 Enkele duistere komman do’s 

De MSX-disk versie bevat enkele kommando’s die: 

— of nog ‘in de steiger’ staan en pas in latere versies een definitieve 
betekenis gaan krijgen 
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- of in vorige, pre-MSX versies een betekenis hebben gehad en ten 
onrechte nog niet geheel zijn verwijderd uit het MSX-basic 

De volgende kommando’s behoren tot die zogenaamde duistere kom- 
mando’s. Zij zijn in MSX-verband nergens beschreven, maar kunnen in 
dokumentatie van pre-MSX-computers vaak wel worden gevonden: 
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SLEUTELWOORD 



ATTR$ 

moeilijkheidsgraad normaal 

soort SYSTEEMVARIABELE 

afkomst ATTR$ is afkorting van attribute string - bij- 

zonderheden (string) 

schrijfwijze 

ATTR»(<?>) 



Deze systeemvariabele is waarschijnlijk bedoeld om wat algemene 
gegevens per bestand te weten te komen. Elk gebruik leidt helaas tot 
een foutmelding. 
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SLEUTELWOORD 



DSKI$ 

moeilijkheidsgraad . . zeer moeilijk, kennis van de indeling van de 
betreffende schijfeenheid is een noodzaak 



soort . . A-FUNKTIE 

afkomst DSKI$ is afkorting van disk input string - in- 

voer string van schijf 



schrijfwijze 

OSK I ♦ ( < SCH I JFNUMMER > > < SECTÜRNUMMER > ) 
< SCH I JFNMMER > : : =< N > 

< SECTORNUMMER >: :=<N> 

<N>s:=<ZIE ALGEMENE SPECIFICATIES) 



Deze funktie is waarschijnlijk bedoeld om direkt sectoren van schijf te 
kunnen lezen. Een schijfnummer en een sectornummer dienen dan te 
worden opgegeven. In werkelijkheid leest de computer de sector wel 
in maar laat deze in een buffer staan; het kommando 

LET A$=BSKI$( 1*1) 

heeft tot effect dat de computer wel van schijf leest, maar niets in de 
variabele A$ zet. 
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SLEUTELWOORD 



DSKO$ 

moeilijkheidsgraad . . zeer moeilijk, kennis van de indeling van de 
betreffende schijfeenheid is een noodzaak 



soort KOMMANDO 

afkomst . . . DSKO$ is afkorting van disk output string - 

uitvoer van string naar schijf 



schrijfwijze 

PSKP*(<?» 



Dit kommando is waarschijnlijk bedoeld om direkt sectoren op schijf 
te kunnen zetten. Het kommando bestaat, maar elk gebruik ervan 
resulteert helaas in foutmeldingen. 
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SLEUTELWOORD 



FPOS 



moeilijkheidsgraad . . 

soort 

afkomst 



zeer moeilijk, kennis van de indeling van de 
betreffende schijfeenheid is een noodzaak 

. N-FUNKTIE 

FPOS is afkorting van file position - positie 
(van lees/schrijfkop) in bestand 



schrijfwijze 



FPOS ( < ? > ) 



Deze funktie is waarschijnlijk bedoeld om de positie van de lees/ schrijf- 
kop te kunnen achterhalen. Uitvoering leidt altijd tot een foutmelding, 
meestal een Intemal error. 
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SLEUTELWOORD 



moeilijkheidsgraad 

soort 

afkomst ....... 

schrijfwijze 




. . . . . . normaal 
. . KOMMANDO 
SET is klaarzetten 



SET <?>*<?> 



Dit kommando is waarschijnlijk bedoeld om bestanden een bepaalde 
status of bescherming te kunnen geven. Gebruik hiervan leidt echter 
onherroepelijk tot een foutmelding. 
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5 



FOUTMELDINGEN OP VOLGORDE VAN NUMMER 



Het MSX-disk basic kent de volgende foutmeldingen, hier op nummer 
opgenomen: 



01 NEXT without FOR 

02 Syntax error 

03 RETURN without GOSUB 

04 Out of DATA 

05 niesal function cal 1 

06 Overflow 

07 Out of memory 

08 Undefined line number 
0? Subscript out of ranse 

10 Redimensioned array 

11 Division by zero 

12 Illesal direct 



gepoosd werd om een NEXT uit te 
voeren zonder dat een bijbeho- 
rende FOR werd uiteevotrd. 

er werd een fout in de schrijf- 
wijze ontdekt. 

gepoosd werd om een RETURN uit 
te voeren terwijl er niet eerder 
een GOSUB werd uitsevoerd. 

gepoosd werd om een READ uit te 
voeren terwijl er seen DATA meer 
kon worden sevonden. 

er werd gepoosd om een kommando 
of funktie uit te voeren met 
niet toesestane waarden. 

het resultaat van een berekening 
ligt boven het toesestane maxi- 
mum of onder het toesestane mi- 
nimum. 

er werd gepoosd om een komman- 
do uit te voeren dat meer geheu- 
gen nodig heeft dan er beschik- 
baar is. 

een niet bestaand prosrammare- 
gel nummer werd benaderd. 

een array-variabel e werd buiten 
zijn dimensies aangesproken of 
er werd een verkeerd aantal di- 
mensies genoemd. 

er werd gepoosd om een array- 
variabele voor een tweede keer 
te DIMensioneren. 

gepoosd werd om een del ins door 
nul te doen of een negatieve 
macht van nul te bepalen. 

er werd gepoosd om een kommando 
direkt in te tikken terwijl dit 
kommando slechts in een program- 
maregel mas voorkomen. 
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13 Type mismatch 

14 Out of strins space 

15 String too long 

16 String formula too complex 

17 Can't continue 

18 Undefined user function 

19 Device I/O error 

20 Veri fy error 

21 No RÉSUMÉ 

22 RÉSUMÉ without error 

24 Missing operand 

25 Line buffer overflow 

50 FIELD overflow 

51 Interna! error 



een numerieke en een alfanume- 
rieke uitdrukking werden met el- 
kaar verwisseld. 

gepoosd werd om een kommando uit 
te voeren waardoor het strins- 
geheugen te klein werd. Vergroot 
het string-geheusen met CLEARi 

er werd gepoogd om een strins 
samen te stellen die langer 
werd dan 255 posities. 

de al fanumer ieke uitdrukking die 
werd uitgewerkt is te ingewik- 
keld voor MSX-basic. SpI its deze 
uitdrukking in enkele kleinere. 

gepoogd werd on een programma 
met CONT te vervolgen terwijl 
dat niet (meer) gaat. 

gepoogd werd om met FN een niet 
gedefinieerde funktie aan te 
roepen . 

een fout werd ontdekt tijdens 
het lezen van/schrijven naar een 
randapparaat (cassetterecorder 
of printer e.d«). 

tijdens de controle met CLOAD? 
werd een verschil ontdekt tussen 
het programma op cassetteband en 
het programma in het geheugen. 

de ERROR-routine werd aanseroe- 
pen en een RÉSUMÉ kon niet wor- 
den gevonden. 

er werd 9epoogd om een RÉSUMÉ 
uit te voeren terwijl er geen 
fout via de ON ERROR GOTO werd 
gedetecteerd . 

een noodzakelijke uitdrukking 
wordt in een kommando niet ge- 
vonden. 

een ingetikte programmarege 1 
is te lang voor MSX-basic 
(langer dan 255 karakters). 

de lengte van het met FIELD ge- 
definieerde record is groter dan 
256 bytes. 

deze melding wijst op een fout 
die niet zou mogen kunnen vooi — 
komen. Licht uw computer 1 everan- 
c i er of MICROSOFT in. 
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52 Bad file number 

53 File not found 

54 File al ready open 

55 Input past end 

56 Bad file name 

57 Direct statement in file 

58 Sequential 1/0 only 

59 File not open 

60 Bad FAT 

61 Bad file mode 

62 Bad drive name 

63 Bad sector number 

64 File still open 

65 File already exists 

66 Disk full 



een niet toesestaan kanaal nummer 
werd eebruikt. 

het te benaderen bestand werd 
niet op de schijf aansetrof fen. 

een reeds bezet kanaal wordt 
met OPEN een tweede maal ge- 
bruikt of een bestand wordt 
over twee kanalen geopend. 

er werd gepoogd om nog gegevens 
uit een bestand te lezen terwijl 
dit bestand reeds volledig was 
doorgewerkt . 

een bestandsnaam werd niet vol- 
gens de voorschriften samenge- 
steld. 

tijdens het LOADen van een pro- 
gramma werd een direkt komman do 
(zonder regelnummer) ontdekt* 
LOAD werd gestopt. 

een randapparaat dat alleen 
sequentiele benadering toelaat 
werd met GET/PUT benaderd. 

een kanaal werd aangesproken 
zonder dat hierop een bestand 
seOPENd is. 

deze foutmelding is wel aanwezig 
maar kan in het MSX-disk-basic 
niet voorkomen tenzij met 
ERROR 60 gegenereerd. 

het benaderde bestand is van een 
verkeerde soort (sequentieel 
terwijl random werd verwacht of 
andersom) . 

er werd een niet bestaande 
schijveneenheid aangeroepen. 

deze foutmelding is wel aanwezig 
maar kar in het MSX-disk-basic 
niet voorkomen tenzij met 
ERROR 63 gegenereerd. 

met NAME/COPY/KILL werd een 
bestand benaderd dat nog 
is geopend (zie OPEN). 

met NAME werd geprobeerd om de 
naam van een reeds op de schijf 
aanwezis bestand aan een ander 
bestand toe te kennen. 

er is niet genoeg ruimte op 
de schijf over. 
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67 Too many files 



68 Disk write protected 



69 Disk I/G error 



70 Disk of f 1 ine 



71 Rename across disk 



er werd geprobeerd om een hon- 
derddert i ende file op een schijf 
toe te wijzen. 

er werd geprobeerd om te schrij- 
ven naar een schijf die WRITE 
PROTECTED is (zie H.3). 

er werd een lees/schrijffout 
op schijf ontdekt, de schiJven- 
eenheid kan iets mankeren of de 
schijf is niet seinitial iseerd. 

de schijveneenheid staat niet 
aangeschakeld of er is geen 
schijf geplaatst. 

er wordt geprobeerd om een 
bestand met NAME een andere 
schijveneenheid toe te ken- 
nen. 
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6 



FOUTMELDINGEN OP ALFABETISCHE VOLGORDE 



Het MSX-disk basic kent de volgende foutmeldingen, hier op alfabe- 
tische volgorde opgenomen: 



60 Bad FAT 

62 Bad drive name 

61 Bad file mode 

56 Bad file name 

52 Bad file number 

63 Bad sector number 

17 Can't continue 
19 Device 1/0 error 

57 Direct statement in file 

69 Disk 1/0 error 

66 Disk f ul 1 

70 Disk of f 1 ine 



deze foutmelding is wel aanwezig 
maar kan in het MSX-disk-basic 
niet voorkomen tenzij met 
ERROR 60 gegenereerd. 

er werd een niet bestaande 
schijveneenheid aanseroepen. 

het benaderde bestand is van een 
verkeerde soort (sequentieel 
terwijl random werd verwacht of 
andersom) . 

een bestandsnaam werd niet vol- 
gens de voorschrif ten samense- 
stel d. 

een niet toesestaan kanaal nummer 
werd gebruikt. 

deze foutmelding is wel aanwezig 
maar kan in het MSX-disk-basic 
niet voorkomen tenzij met 
ERROR 63 gegenereerd. 

gepoosd werd on een programma 
met CONT te vervolgen terwijl 
dat niet (meer) gaat. 

een fout werd ontdekt tijdens 
het lezen van/schrijven naar een 
randapparaat (cassetterecorder 
of printer e.d.). 

tijdens het LGADen van een pro- 
gramma werd een direkt kommando 
(zonder regelnummer) ontdekt? 
LQAD werd gestopt. 

er werd een lees/schrijffout 
op schijf ontdekt, de schijven- 
eenheid kan iets mankeren of de 
schijf is niet seinitial iseerd, 

er is niet genoeg ruimte op 
de schijf over. 

de schijveneenheid staat niet 
aangeschakeld of er is geen 
schijf geplaatst. 
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68 Disk write proteeted 

11 Division by zero 

50 FIELD overflow 

65 File already exists 

54 File already open 

53 File not found 
59 File not open 

64 File stil 1 oren 

12 111 esal direct 

05 Illesal function call 

55 Input past end 

51 Internal error 

25 Line buffer overflow 
24 Missins operand 



er werd seprobeerd om te schrij- 
ven naar een schijf die WRITE 
PROTECTED is (zie H.3>. 

gepoosd werd om een delins door 
nul te doen of een nesatieve 
macht van nul te bepalen. 

de lenste van het met FIELD ge- 
definieerde record is sroter dan 
256 bytes. 

met NAME werd geprobeerd om de 
naam van een reeds op de schijf 
aanwezis bestand aan een ander 
bestand toe te kennen. 

een reeds bezet kanaal wordt 
met OPEN een tweede maal ge- 
bruikt of een bestand wordt 
over twee kanal en seopend . 

het te benaderen bestand werd 
niet op de schi J f aansetrof f en. 

een kanaal werd aangesproken 
zonder dat hierop een bestand 
seOPENd is. 

met NAME/COPY/KILL werd een 
bestand benaderd dat nos 
is geopend (zie OPEN). 

er werd gepoogd om een kommando 
direkt in te tikken terwijl dit 
kommando slechts in een program- 
maregel mas voorkomen. 

er werd sepoosd om een kommando 
of funktie uit te voeren met 
niet toesestane waarden. 

er werd gepoosd om nos sesevens 
uit een bestand te lezen terwijl 
dit bestand reeds volledis was 
doorsewerkt . 

deze melding wijst op een fout 
die niet zou mogen kunnen voor- 
komen. Licht uw computer 1 everan- 
cier of MICROSOFT in. 

een insetikte programmaregel 
is te lang voor MSX-basic 
danser dan 255 karakters). 

een noodzake 1 i j ke ui tdrukki ng 
wordt in een kommando niet ge- 
vonden . 
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01 NEXT without FOR 

21 No RÉSUMÉ 
04 Out of DATA 
07 Out of memory 

14 Out of strins space 
Ó6 Overflow 

22 RÉSUMÉ without error 

03 RETURN without OOSUB 
10 Redimensioned array 
71 Rename across disk 

58 Sesuential 1/0 only 
16 Strins formula too complex 

15 Strins too lons 



gepoosd werd om een NEXT uit te 
voeren zonder dat een bijbeho- 
rende FQR werd uitgevoerd. 

de ERROR-routine werd aangeroe- 
pen en een RÉSUMÉ kon niet wor- 
den gevonden. 

gepoogd werd om een READ uit te 
voeren terwijl er seen DATA meer 
kon worden gevonden. 

er werd gepoogd om een komman— 
do uit te voeren dat meer geheu- 
gen nodig heeft dan er beschik- 
baar is. 

gepoogd werd om een kommando uit 
te voeren waardoor het strins- 
seheugen te klein werd. Vergroot 
het strins-seheusen met CLEAR. 

het resultaat van een berekening 
ligt boven het toegestane maxi- 
mum of onder het toesestane mi- 
nimum. 

er werd gepoosd om een RÉSUMÉ 
uit te voeren terwijl er seen 
fout via de ON ERROR GOTO werd 
gedetecteerd . 

gepoosd werd om een RETURN uit 
te voeren terwijl er niet eerder 
een GOSUB werd uitsevoerd. 

er werd gepoosd om een array- 
variabele voor een tweede keer 
te DIMensioneren. 

er wordt geprobeerd om een 
bestand met NAME een andere 
schijveneenheid toe te ken- 
nen. 

een randapparaat dat alleen 
sesuentiele benadering toelaat 
werd met GET/PUT benaderd. 

de al fanumerieke uitdrukking die 
werd uitsewerkt is te ingewik- 
keld voor MSX-basic . Splits deze 
uitdrukking in enkele kleinere. 

er werd gepoosd om een strins 
samen te stellen die langer 
werd dan 255 posities. 
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09 Subscript out of ranse 

02 Syntax error 
67 Too many files 

13 Type mismatch 

08 Undefined line number 
18 Undefined user function 

20 Verify error 



een array-var iabel e werd buiten 
ziJn dimensies aangesproken of 
er werd een verkeerd aantal di- 
mensies genoemd. 

er werd een fout in de schrijf- 
wijze ontdekt. 

er werd geprobeerd om een hon- 
derddertiende file op een schijf 
toe te wijzen. 

een numerieke en een alfanume- 
rieke uitdrukking werden met el- 
kaar verwisseld. 

een niet bestaand programmare- 
gel nummer werd benaderd. 

gepoogd werd om met FN een niet 
gedefinieerde funktie aan te 
roepen. 

tijdens de controle met CLOAD? 
werd een verschil ontdekt tussen 
het programma op cassetteband en 
het programma in het geheugen. 
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7 



FRAME, EEN BASISPROGRAMMA VOOR 
BESTANDSONDERHOUD 



In dit hoofdstuk is de lijst opgenomen van het programma FRAME. 

Het programma FRAME is een basisprogramma waarvan iedereen 
binnen enkele minuten zijn eigen onderhoudsprogramma’s kan maken. 

Om een eigen bestandsonderhoudprogramma samen te stellen, behoeft 
men slechts de volgende handelingen te verrichten: 

1 . Laad het programma FRAME (of tik het de eerste keer in). 

2. Breng op regel 40 in een DATA-kommando de naam van het te 
onderhouden bestand in. 

3. Neem op regel 1000 in een DATA-kommando het aantal records 
in dat het bestand dient te bevatten. 

4. Breng op regel 250490 de gegevens per veld in. Per veld steeds 
de veldnaam in een DATA-kommando inbrengen, gevolgd door de 
maximale lengte van het veld. 

5. Test het programma uit. Het kan zijn dat de recordlengte groter 
is dan 256 bytes of dat een veldomschrijving te lang is; kortom, er 
kunnen kleine schoonheidsfoutjes optreden. 

6. Leg het programma tenslotte op schijf vast. 

In de lijst zijn wat voorbeeldgegevens op de in te vullen regelnummers 
opgenomen; deze mogen natuurlijk worden vervangen of verwijderd. 

Vanaf regel 60000 is een ingaveroutine opgenomen die fool-proof is. 
Ook in vele andere programma’s kan deze routine zijn nut bewijzen. 

De handige programmeur kan het programma misschien later aanpassen, 
zodat er ook een sorteer- en printmogelijkheid is. Terwille van de een- 
voud zijn deze mogelijkheden achterwege gelaten. 

Het programma FRAME is in een TOP-DOWN struktuur opgebouwd 
en doorspekt met dokumentatie. De iets meer geoefende amateur 
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moet de werking van dit programma toch wel grotendeels kunnen 
doorgronden. 

De werking van FRAME is vrij vanzelfsprekend. Steeds dient éérst een 
recordnummer te worden ingegeven, gevolgd door de betreffende 
gegevens. 

Onthoud echter het volgende: 



Ingave van 


resultaat/ funktie 


RETURN 


de inhoud van een veld . 
blijft onveranderd 


— (min-toets gevolgd 


ga terug naar de vorige 


door return) 


ingave 


— (twee maal min) 


maak het veld schoon 


(drie maal min) 


verwijder het record 



Het programma FRAME mag op non-commerciële basis worden geko- 
pieerd ten behoeven van vrienden, kennissen enzovoorts. Het is echter 
verboden om dit programma op commerciële basis te verhandelen of 
zonder uitdrukkelijke en schriftelijke toestemming van de uitgever te 
publiceren* 

1 0 rem 

20 RÉM * ALGEMEEN BESTANDS VER- * 

38 REM * ZORG I NGSPROGRAMMA * 

40 REM * VOOR EEN MSX-GQMPUTER * 

50 REM MET FLOPPY DISK. t 

60 REM % <01985 STARK TEXEL * 

70 REM -mmmmmmm**** 

80 REM 

90 CLEAR 4Ö96 

100 REM — - 

110 REM NEEM OP REGEL 140 OP : 

120 REM 140 DATA ”<file>" 
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140 DATA "KENNIS" 



REM NEEM OP REGEL 190 OP- 
REN 190 DfiTfl < aantal records > 

rem — 

DfiTfl 1000 

REM ï 

REM NEEM OP REGEL 250 EN VER- 
REM DER OP < MAX. 20 KEER ) = 

REM XXX DfiTfl "<veld>",< lan9> 

RE h — — 

DfiTfl "NAAM", 24 
DfiTfl " STRAAT", 24 
DfiTfl " POSTKODE " , 6 
DfiTfl " WOONPLAATS" , 24 
DfiTfl "TELEFOON 'MS 
DATA " GEBOORTEDATUM " , 8 
DATA "H0BBIE3" .*24 
DATA " LEEFTIJD", 2 
DfiTfl " L I E VEL I NGSKLEUR " , 8 
DfiTfl " L I E VEL I NGSDRfiNK ", 1 2 
DATA " LAATSTE VISITE", 8 
DATA " OPMERK I NGEN ", 24 

REM 

DATA "" 

REM ************************* 
REM * HIER BEGINT HET FEI- * 
REM * TELIJKE PROGRAMMA PfiS * 
REM ************************* 
REM 

REM ************************* 
REM * HOOFDPRÜGRfiMfi * 

REM * * 

REM * VANUIT DIT HOOFDPRO- * 
REM * GRfiMMfi WORDEN ALLE * 
REM * FUNKTIES AANGEROEPEN * 
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625 REM ************************* 

63 fi rem 

640 GÖSUB 1 000 'INITIALISATIE 

650 GOSUB 1500'PROGRRMMRKEUZE 

660 REM NflfiR DE DRIE PROGRAMMA'S 

670 ON K GOSUB 2080,3000,4000 

680 GOTO 650' EN WEER PRÜGRAMMfiKEUZE 

1 008 REM ************************* 

1010 REM * INITIALISATIE * 

1020 REM * * 

1030 REM * HIER WORDEN DE VASTE * 

1040 REM * WAARDEN BEPAALD EN * 

1058 REM * HET BESTAND TOEGEWE- * 

1060 REM * ZEN OF GEOPEND. * 

1 870 REM ************************* 

1080 REM 

1090 REM BESTAND TOEWIJZEN 

1100 RESTORE : REfiD F$,RM 

1110 OPEN F$ AS #1 

1120 REM VELDOMSCHRIJVINGEN BEPALEN 

1 1 30 D I M V* < 21), L< 20 > , V I $< 20 > 

1140 RL~0 : FOR 1=1 TO 20 ; READ V$< I ) 

1150 IF V$< !><>"" THEN READ L< I > : RL=RL+L 
< I > : NEXT I 

1160 REM RECORD TOEW IJZEN 
1170 FIELD #1 , RL+1 AS R$ 

1180 REM INPUT PAST END ERROR TE 
1190 REM SLIM AF ZIJN 
1200 PUT #1 , RM+1 
1210 RETURN 

1 508 REM ************************* 

1510 REM * PROGRAMMAKEUZE * 

1520 REM * — * 

1530 REM * HIER WORDT DE PRO- * 

1540 REM * RAMMAKEUZE GEREGELD * 

1 558 REM ************************* 
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1568 REM 

1 570 K$= " PROGRAMMAKEUZE " 

1580 GOSUB 55008 CLS--KÖP 
1590 LÜCATE 0,3 

1610 PR I NT " 1 =AANMAKEN.-W I JZ I GEN RECORDS " 
1620 PRINT "2-QPVRAGEN RECORDS" 

1630 PRINT "3-EINDE PROGRAMMA" 

1640 1$-" 000901 UW KEUZE" 

1650 GOSUB 60800 •' INPUT 

1660 IF II$<>"1" AND II $<>“2" AND II$<>" 

3" THEN 1650- 'FOUT 

1 670 K=VAL< 1 1 $ > = RETURN 

2000 rem 

2010 REM * AANMAKEN/WIJZIGEN * 

2820 REM % % 

2030 REM * HIER WORDT DE AANMAAK * 

2040 REM * EN WIJZIGING OF VER- % 

2850 REM * WIJDER ING VAN DE RE- % 

2060 REM * CORDS GEREGELD. % 

2070 rem unttttttttttunrn-un 

2080 REM 

2090 K$= " AANMAKEN/W I JZ I GEN RECORDS " 

2100 GOSUB 55000 ' CLS.- KOP 

2110 GOSUB 50080' PRINT VELDEN 

2120 GOSUB 45000' ING AVE/LEES RECORD 

2125 IF RN=0 THEN RETURN' 0-E INDE 

2130 REM NU INGAVE VELDEN 

2140 FOR 1=1 TO 20 : IF I ><>"" THEN I$= 

R I GHT$< STR$C MV+ 1 0 1 > , 2 >+R I GHT$< STR$< 1 + 103 

> , 2 >+R I GHT$< STR3K L< I >+ 1 00 ) , 2 > = GOSUB 6000 

0 ELSE 2170' INPUT 

2150 IF I I$=STRING$< L( I " " > THEN II$=V 
I$< I > 

2155 IF LEFT$< 11$, 3 >=" " THEN LSET R$- 

"" =PUT # 1 , RN : GOTO 2100 

2156 IF LEFT$< II$,2>-" — " THEN II$=SPACE 
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$< LX I ) ) * GOTO 2168 

2157 IF LEFT$<II$, 1 THEN LOCRTE MV+ 

1 , 1 +3 * PR I NT V I $< I > i ■■ I * I- -2 ■ GOTO 2165 
2160 VI$< I >=I 1$ : LOCflTE MV+1 , 1+3 • PRINT II 

$ j 

2165 IFI=~1 THEN 1=0 

2166 NEKT I 

2170 GOSUB 400O0-' SCHRIJF RECORD 
2180 GOTO2120-' VOLGENDE RECORD 
3000 REM aalt****#**#*#*****#*****#* 

3010 REM * OPVRflGEN RECORDS * 

o ft o |/| PPM i' — — — — % 

3030 REM * HIER WORDEN DE RE- * 

3040 REM * CORDS OPGEVRflfiGD. % 

3850 rem m*#*#***mmm**m* 

3060 REM 

3070 R'$="OPVRfiGEN RECORDS" 

3080 GOSUB 55000' CLS/KOP 
3090 GOSUB 50800 'PRINT VELDEN 
3100 GOSUB 45000' INGRVE/LEES RECORD 
3110 IF RN=0 THEN RETURN ELSE 3100 

4000 rem m*mmmm*m*m* 

4010 REM * EINDE PROGRAMMA * 

4020 REM 
4030 REM 

4040 CLOSE • CLS = STOP 
40000 REM 

40010 REM * SCHRIJF RECORD * 

40020 REM * — — — * 

40030 REM * HIER WORDT HET EERDER # 

40040 REM * INGELEZEN RECORD WEER * 

40050 REM * GESCHREVEN OP SCHIJF. * 

40060 REM **********************3|{** 

40070 REM 

40080 RR$="$" : FOR 1 = 1 TO 20= IF V$<IX> , "‘ 
THEN RR$=RR$+VI$< I > : NEKT I 
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40090 LSET R$=RR$ : PUT #1 , RN = RETURN 
45000 REM 

45010 REM * INGflVE RECORDHUMMER *. 

45020 REM * # 

45030 REM % HIER WORDT HET RE- * 

45040 REM % CORDNUMMER INGEGEVEN % 

45050 REM % EN HET RECORD IMGELE- % 

45060 REM % ZEN EN flFGEDRUKT. % 

45070 REM 
45080 REM 

45098 I $= " 080304RECORD " +STR I NG$< MV-6 , " " 

> 

45100 GOS UB 60000 •’ INPUT 
45110 FOR 1 = 1 TO 4 : IF <MID$( 11$, LIK "0" 
OR MID$< 1 1$, 1 , 1 »"9" > AND MIP$< 11$, 1, 1 > 
O" " THEN 45100 ELSE NE NT I 
45120 RN=VflL< 1 1 $ ) : I F RH=0 THEN 45190 

45125 IF RN>RM THEN 45090 

45126 LOCflTE MV+1,3=PRINT USING" ### 
# " j RN 

45130 GET #1 , RN : IF LEFT$< R$, 1 K >"%" THEN 
LSET R $="*" 

45140 RP=2 FOR 1 = 1 TO 20-1 F V$( I THE 
N 45160 

45150 VI*< I M'IIDÜK R$, RP, L< I ) ) * RP=RP+L< I > 
: HEXT I 

45160 FOR 1=1 TO 20 : IF V$( I >="" THEN 451 

30 

45170 LOCflTE MV+1 , 1+3 : PRINT VI$< In- NENT 
I 

45190 RETURN 

50000 rem *m*****************m* 

50010 REM % PRINT VELDEN % 

50020 REM 4: * 

50030 REM * HIER WORDEN DE VELD- % 

50040 REM * NAMEN flFGEDRUKT. * 
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50050 REM ************************* 

50060 REM 

50070 LOCflTE 0, 3 = MV=6 : PRINT "RECORD" 

50080 FOR 1=1 TÖ 20 

50090 IF V$< I >=" " THEN 50120 

50100 LOCflTE 0,1+3 = PRINT V$< I >; = IF MV<LE 

H< V$< I > > THEN MV=LEN< V$< I > ) 

50110 NEKT I 

50120 FOR 1=1 TÜ 21= LOCflTE MV, 1+2= PRINT" 
= "; = IF V*< I X >" " THEN NEKT I 
50130 RETURN 

55000 REM *m**m*mmm##**** 

55010 REM * BEELD SCHOON EN KOP * 

55020 REM :fc % 

55030 REM * HIER WORDT HET BEELD * 

55040 REM * SCHOONGEMAAKT EN DE * 

55050 REM * KOP fiFGEDRUKT % 

55060 rem m*m**mm*#mm** 

55070 REM 

55080 KEY OFF = COLOR 15,4,4=WIDTH 40=SCRE 
EN 0 = CLS 

55090 PRINT STRING*<40/W) 

55100 LOCflTE < 40-LEN< K$ > )/2~l , 0 = PRINT " 
K$.i " " 

55110 RETURN 

60000 REM ****%****t**********U*** 



60010 REM % INGflVEROUTINE % 

60020 REM * * 

68030 REM % I $= " HHVVTT H fl" * 

60040 REM * HH=HOR I ZONTflLE POS t 

60050 REM % VV=====VERTIKflLE POS. % 

60060 REM % TT=flflTflL TEKENS. % 

68070 REM * fl fl= TEKST INPUT % 

60080 REM * RESULTAAT, flflNGEVULD * 

60090 REM * MET SPATIES IN 11$ * 



.60 1 00 REM 
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60110 REM 

60120 11*=""* XX*' VRU NIO*< 1$, 1,2))= Y Y» Vfl 

L< M I D$< I * , 3 , 2 > ) * TT= VRL< M I D*< I * , 5 , 2 > > > SS$ 

-MID*<I$,7>' IF LENCSS*) THEN SS*=SS*+" : ” 

60 1 30 LOCflTE )<'}< > YY , 0 * PR I NT SS* ; STR I NG*< T 

T , " W > ; * LOCflTE XX+LEN< SS* > , YY 

60140 KK*=INKEY$ = IF KK*="" THEN 66148 

60150 IF ’KK*=CHR*C8) OR flSC<KK*>=127 OR 

flSC<KK*>=29 THEN 60210 

60160 IF KK$=CHR*< 13 ) THEN 68240 

68170 IF flSC< KK* X32 OR flSCX KK$ »122 THE 

N BEEP : GOTO 60148 

60188 IF flSC< KK* >>96 AND flSC(KK$X123 TH 
EN LET KK*=CHR*'.' flSC< KK* >~32 ) 

68198 IF LENC I I $ )=TT THEN BEEP* GOTO 6814 
0 

60288 1 1 *= 1 1 * +KK* = PR I NT KK* ; * GOTO 60140 
60218 IF 11*="" THEN BEEP - GOTO 68140 
60228 1 1 *=LEFT*< II*. LEN< 1 1 * )- 1 ) * PR I NT CH 
R$< 8 ); " ö " ; CHR*< 8 > ; * GOTO 60 1 40 
60248 1 1 *= 1 1 *+3TR ING$< TT-LENC 1 1 * >, 32 > * LO 
CflTE XX+LEN< SS* >/TY * PRINT II*; * RETURN 
60258 RETURN 



99 




8 TEKEN, EEN MSX-TEKENTAFELPROGRAMMA 



In dit hoofdstuk is de lijst opgenomen van het programma TEKEN. 

Het programma TEKEN is een vrij uitgebreid en geavanceerd teken- 
tafelprogramma; technische tekeningen kunnen worden ingebracht, 
vergroot, verkleind, verschoven en kunnen op schijf worden opgeslagen. 

Nadat het programma is opgestart, wordt een leeg beeldscherm gepre- 
senteerd. De volgende kommando’s zijn mogelijk; 



TOETS 


FUNKTIE (zorg dat CAOS LOCK aan staat) 


pijl omhoog 


verplaatst de tekenpijl naar boven. 


pijl naar rechts 


verplaatst de tekenpijl naar rechts. 


pijl naar beneden 


verplaatst de tekenpijl naar beneden. 


pijl naar links 


verplaatst de tekenpijl naar links. 


- 


(mintoets) verbetert de laatste aktie. 


S 


vergroot/verkleint de ‘stappen’ die de tekenpijl 
tegelijk over het beeldscherm neemt van 1 naar 5 
puntjes of van 5 naar 1 puntje. 


R 


maakt de tekening opnieuw maar nu met een teken- 
raster er overheen. Met de R kan dit raster ook weer 
worden uitgeschakeld. 


spatie 


met de spatie kan een punt worden geplaatst ter 
hoogte van de tekenpijl. Deze punt dient om de 
lokatie voor een latere aktie vast te leggen. 


L 


trekt een lijn tussen de twee laatste (met spatie) 
geplaatste punten. Na L blijft alleen de laatste 
punt aktief; de andere verdwijnen. 


C 


tekent een cirkel. De laatste twee geplaatste 



100 














punten vormen twee middellijnpunten op de cirkel. 
Het laatst geplaatste punt blijft aktief, het andere 
andere wordt verwijderd. 


B 


tekent een rechthoek. Het eerste geplaatste puntje 
en het tweede geplaatste puntje vormen de hoeken 
van een diagonaal van de rechthoek. Alleen het 
laatste puntje blijft aktief. 


P 


start veelhoek. Nadat met P een punt geplaatst is, 
kunnen diverse verbindingslijnen worden getekend 
om bijvoorbeeld een veelhoek te tekenen. De 
figuur kan als laatste aktie dan worden gesloten 
met de D-funktie. 


D 


maak veelhoek dicht. Het laatste aktieve punt 
wordt met het eerste via P geplaatste punt verbon- 
den. 


Q 


teken kromme. Voor deze funktie dienen drie 
punten met spatie op het beeldscherm te zijn 
geplaatst. De wijze waarop de kromme wordt 
getekend, laat zich het best in een tekening verdui- 
delijken. 



I 
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Op deze wijze kunnen allerlei krommen, ook ellip- 
sen, cirkeldelen etcetera, worden geconstrueerd. 


w... 


na de letter W dient een cijfer (0 ... 9) of een letter 
(A ... Z) te worden ingetoetst. In dien deze intoet- 
sing langer dan een seconde op zich laat wachten, 
wordt deze funktie niet uitgevoerd. 

De tekening wordt in bestand ”TEK...,DAT” 
(op ... staat het ingetoetste teken) opgeslagen. 


0 ... 


na de letter 0 dient net zoals bij het kommando 
-W- een letter of cijfer te worden ingetoetst. De 
eerder in ”TEK...JDAT” opgeslagen tekening 
wordt weer opgehaald. 


A... 


na de letter A dient net zoals bij het kommando 
-W- een letter of cijfer te worden ingetoetst. De 
eerder in ”TEK....DAT” opgeslagen tekening 
wordt vanaf het laatst geplaatste punt opgehaald 
en bij de reeds aanwezige tekening gevoegd. Zo 
kunt u een éénmaal getekend detail steeds weer 
opnieuw, desnoods meerdere malen, automatisch 
in een tekening bijplaatsen. 


X 


maakt de gehele aktieve tekening schoon. 


G 


vergroot de tekening met een faktor twee. Deze 
funktie kan maximaal drie maal achter elkaar wor- 
den gebruikt (8 maal vergroten). Het laatst geplaats- 
te punt blijft op zijn plaats, de rest van de tekening 
wordt hier omheen uitvergroot. 

In de vergrote toestand kunnen veranderingen in 
de tekening worden aangebracht die later bij het 
verkleinen ook weer worden meeverkleind. Zo kun- 
nen detailtekeningen eerst groot worden ingevoerd 
en pas later naar de werkelijke grootte worden ver- 
kleind. 


K 


verkleint de tekening met een faktor twee. Deze 
funktie kan alleen worden gebruikt na een vergro- 
ting en brengt de tekening weer naar een eerder, 
kleiner formaat. Het laatst geplaatste punt blijft op 
zijn plaats; de rest van de tekening wordt hier om- 
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heen verkleind. 


V 


verschuift de tekening. De gehele tekening wordt 
verschoven zover als het eerst en het tweede puntje 
uit elkaar liggen. Zo kan een afgewerkt deel van de 
tekening (ook in vergrote toestand) uit beeld wor- 
den geschoven en kan daarnaast worden verder 
getekend; het beeldscherm maakt steeds slechts 
een gedeelte zichtbaar. 

De V-funktie maakt het mogelijk om tekeningen te 
maken die véél groter dan het beeldscherm zijn. 
Het beeldscherm vormt slechts een soort ‘venster’ 
waardoor een gedeelte van een tekening zichtbaar 
is. Zo kan een tekening met een bereik van meer 
dan 30000 x 30000 beeldschermpuntjes worden 
gemaakt. 


F 


kleurt een gedeelte wit in. Vanuit het laatst geteken- 
de puntje wordt een met lijnen omsloten opper- 
vlak wit ingekleurd. 

De maximale ingewikkeldheid van een tekening is 
beperkt tot 500 akties (lijnen, krommen, cirkels, 
inkleuringen of blokken). Binnen dit aantal akties 
kunnen over het algemeen vrij gedetailleerde teke- 
ningen ruim worden gekodeerd. 

Let op: SHIFT LOCK moet bij dit programma 
altijd AAN staan. 



Het programma TEKEN is zo ontworpen dat de handige programmeur 
zonder veel moeite een aanpassing kan maken voor het aansluiten van 
een plotter. 

Het programma TEKEN is in een TOP-DOWN struktuur geschreven. 
De berekeningen en gedachtengangen die achter het programma zitten, 
maken het ondanks alle kommentaar en de duidelijke opbouw toch 
een moeilijk geheel. Een hele slimme amateur doorgrondt het program- 
ma op den duur misschien helemaal. 

Het werken met dit programma is een erg leuke ervaring. Al snel bent 
u in staat om mooie tekeningen te fabriceren. 

Het programma TEKEN mag op non-commerciële basis worden geko- 
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piëerd ten behoeve van vrienden, kennissen enzovoorts. Het is echter 
verboden om dit programma op commerciële basis te verhandelen of 
zonder uitdrukkelijke en schriftelijke toestemming van de uitgever te 
publiceren. 



10 REM XXXXXXXXXXXXXXXXXXXXXXXXX 
2© REM * TEKENPROGRAMMA * 

30 REM * * 

40 REM * <01985 STfiRK TEXEL * 

50 rem 

60 REM 



70 REM 



80 REM * HÖOFDPROGRAMMA X 
90 REM * * 



1 00 REMm*:m:m*mmm***#* 

110 REM 

120 GOSUB 150'’ INITIALISATIE 

130 GOSUB 250 * KOMMANDO INTEPRETATOR 

140 STOP 

150 rem xxxxxxxxxxxxxxxxxx : ******* 



160 REM X INITIALISATIE * 
170 REM % * 



1 80 REM XXXXXXXXXXXXXXXXXXXXXXXXX 
190 REM 



200 COLOR 15, 4, 4= SCREEN 2,0 
210 DIM py.C 508 , 6 > , X*;< 2 > , YXC 2 > 

220 SPRITE$< 1 >=CHR$<: 128 > * SPRITE$< 2 )*CHI 
< 128 > * SPRITE*< 3 > S =CHR$< 128 > = SPRITE«< 0 >=i 
R$( 248 >+CHR$< 1 92 >+CHR$( 1 60 >+CHR$< 1 44 > = i 



SUB 3070 •PIJL 

230 GOSUB 1620 •■SCHOONMAKEN TEKENING 
240 RETURN 

250 REM XXXXXXXXXXXXXXXXXXXXXXXXX 
260 REM X KOMMANDO INTEPRETATOR X 

270 REM X X 

280 REM X HIER WORDEN DE TOETS- X 
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290 REM * INSLAGEN GECONTRO- * 

300 REM * LEERD EN DE BIJBEHQ- * 

310 REM * RENDE ACTIES ONDERNQ- * 

320 REM * MEN. * 

330 REM m********************** 

340 REM 

350 C$=CHR$( 30 >+CHR$< 28 )+CHR*< 31 )+CHR$ 



• -SR LC60WXGKVFDPAÖ " 

K*=INKEY$-I.F K$=" " THEN 360 
FOR IX*1 TO LEN( C$ > : IF MID*<C*,IX, 
THEN 380 ELSE NEKT IX «GOTO 360 
ON IX GOSUB 590, 660, 730, 800, 870 >95 
1010, 1080,1178, 1240, 1310, 1380, 1510, 162 
1690, 1750, 1810, 1890, 1960,2030,2090,223 



9 )+ 
360 
370 
=K$ 
380 



390 



GOSUB 3070' PIJL 



400 GOTO 360 

410 rem mm******: ************* 

420 REM * CLS/KOP/GRID t 

430 REM * * 

440 REM * HIER WORDT HET BEELD- * 
450 REM * SCHERM SCHOONGEMAAKT, * 
460 REM * KOPREGEL GESCHREVEN * 
470 REM * EN EVENTUEEL EEN RAS- * 
480 REM * TER GETEKEND BIJ GR-l * 



500 REM 
510 CLS 

520 LINE (10, 10)-<240, 10)«LINE -(240,188 
> « LINE -< 10, 180 > « LINE -( 10, 10 > 

530 PA I NT ( 0 , 0 > : GOSUB 3000 ' KOPTEKST 

548 IF GRX-0 THEN 588 

550 FOR IX-20 TO 248 STEP 10#VFX 

568 L I NE ( I X, 1 0 ;-( IX, 180), 3= IF I X< 1 80 TH 

EN LINE <10, IX >-<248, IX), 3 

570 NEKT IX 

580 CLOSE : RETURN 
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590 REM Jt«*#^«*»*««**^*W 
600 REN * PIJL OMHOOG * 

610 REM t * 



630 REM 

640 YX*YX-STX.IF YX<-VYX 
650 RETURN 



THEN YX=YX+STX 



670 REM * PIJL HfiRR RECHTS * 

680 REM % — * 

690 REM XXXXtXXXXXXXXXXtXXtXXtXXX 
700 REM 



710 XX»XX+STX=IF XX>230/VFX- 



vvv 

V ri-** 



THEN XX 



XX-STX 
720 RETURN 

730 rem xxxxxtxxxxxxxxtxxxuxxxxx 

740 REM % PIJL NflfiR BENEDEN t 
750 REM t * 



760 rem mmmmmmm**** 

770 REM 

780 YX=YX+STX = IF YXM70/VFX-VYX THEN YX 

YX-STX 

790 RETURN 

800 REM 

810 REM X. PIJL NflfiR LINKS X 
820 REM X X 

830 rem 

840 REM 

850 XX=XX~STX : I F XX<-VXX THEN XX=XX+STX 
860 RETURN 

870 rem xtxtxxxxxxxxxxxxxmxxxxx 

880 REM X M I NT QETS-CORRECT I E X 

890 REM X X 

900 rem nxxxxxxxxxxxxxxxxxxxxxxx 

910 REM 

920 IF PPX=0 THEN RETURN ELSE PPX=PPX~1 
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930 GOSUB 2300' TEKENING 
940 RETURN 

950 rem mm##***mm**mm 

960 REM * S-TOETS SNEL/LRNGZAAM X 
970 REM X — * 

980 rem xxxxmxxxxxxxxxxxxxxxxxxx 

390 REM 

1 800 STJi® 1 -4*< ST’;= 1 > = RETURN 

1010 rem m:m*:mmm********** 

1020 REM * R- TOETS RASTER ARN/UIT * 

1030 REM * % 

1040 rem xxxxxxxxxxxxxxxxxxxxxxxx%x 

1050 REM 

1 060 GR*=NOT< GR'; ) = GOSUB 2300 ' HERTEKENEN 
1070 RETURN 

1080 rem mm**;mmmm***** 

1090 REM t SPATIE=PUNT PLAATSEN * 

1100 REM X * 

iii 0 rem xxxxxxxxxxxxxxxxxxxxxxxtx 



1120 rem 

lis© mx 0 i > 
«YX<1>*YX<2>‘XX< 



: Ytt 0 )»YJ£< 1 ) = 
2)*X5J*YW2)«Y 



XW1)»X5S<2> 



v 

'm 



1 1 40 PNX*PNJï+ 1 +3#< PN7.=3 ) « PIJTSPR I TE PNX , < 
< X*;+VXJ; )*VFfc+10, < YX+VYX >#VF“;+9 >, 1 
1150 I F SP*=0 THEN SP.*;*1 ! SXJ£*X5ï ! SYX*Y5ï 
1 1 60 P*;=P*;-( p-;< 3 > = RETURN 
1170 REM mm:mm*m**m***# 

1180 REM X L=LI JN TREKKEN X 

1190 REM * X 

1 200 REM ************************* 

1210 REM 



1220 E‘;=£ • I*;~0 : GOSUB 3130' PLAATS IN P 
1230 RETURN 

1 240 rem mm#**#**mmm*m 

1250 REM X C=C I ROEL TEKENEN * 
1260 REM •* $ 
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EK -2 : 1 K-2 : GÜSUB SISO' PLAATS IN PK 
RETURN 

REM ************************* 



1 279 REM ************************* 

1280 REM 

1290 EK»2 ; IK-l : GÜSUB 3130' PLAATS IN PK 
1300 RETURN 

1310 REM ************************* 

1320 REM * B=BLOK TEKENEN * 

1330 REM * * 

1 340 REM ************************* 

1350 REM 

1360 EK*2 = IK=2 : GÜSUB 3 130 'PLAATS IN PK 
1370 RETURN 

1 380 REM ************************* 

1390 REM * O --OPHALEN TEKENING * 

1400 REM * * 

1410 REM ************************* 

1420 REM 

1430 GOSUB 3220 ‘BESTANDSNAAM 

1440 IF F$=" " THEN RETURN 

1 450 GOSUB 1620 ' SCHOONMAKEN 

1468 OPEN F$ FOR INPUT AS 1 : INPUT #1,R$= 

JK=VAL< R$ > 

1470 FOR PPK=0 TO J‘i-1 = FOR IK=Ö TO 6 : 1 NP 
UT# 1 , R$ : P>.< PP”; , I"; >=VAL< R$ ) NEKT I K ■■ GOSUB 
24 10' TEKEN EEN DETAIL 
1480 NEKT PP”: * CLOSE 
1490 GOSUB 3000 ' KOPTEKST 
1500 RETURN 

1510 REM ************************* 

1520 REM * W-WEGSCHR I J VEN TEK. * 

1530 REM * * 

1 540 REM ************************* 

1550 REM 

1560 GOSUB 3220 ' BESTANDSNAAM 
1570 IF F$=" " THEN RETURN 
1580 OPEN F$ FOR OUTPUT AS 1 •• R$=STR$C PFK 
PRINT #1,R$ 
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1598 FOR JK=0 TO PP'ii-l : FOR IX*0 TO 6 
1 600 R$=STR*< P:« J >. , I V . ) > = PR I NT # 1 , R$ 

1610 NEKT IK = NEKT J>. = CLOSE = RETURN 

1 620 rem ************************* 

1630 REM * K==SCHOÖNMAKEN TEK. * 

1640 REM * * 

1 650 rem ************************* 

1660 REM 

1670 3P*;=0 = PPK=0 = VKK=0 = VYK=0 = VF>.=1 = K‘;=0 = 
YK=0 : P*:=0 •• PN5£=0 = STK= 1 = PUTSPR I TE 1,C~1,~1 
: PUTSPR I TE 2 , ( - 1 , - 1 ) = PUTSPR I TE 3 , < - 1 , - 1 

> = COSUB 2300 = RETURN 

1 680 PUTSPR I TE 0 , < 1 0 , 1 0 ) , 1 2 = RETURN 
1 690 REM * # * * * * 4' # # * 4 : # % t * # # # * % # * * * % 

1700 REM * GEVERGROOT MARL TWEE * 

1710 REM * X 

1 720 REM #**#**#**#*#**#*****#**## 

1730 REM 

1740 IF VF";=8 OR PK=0 THEN RETURN ELSE V 
FK=VF*;*2 = VKK=< VKK-KKC 2 > V2 = VYK=( VV*:-YK( 2 

> )/2 = P‘;=0 = SP'".=0 = GOSUB 2300 = PUTSPRI TE 1 , < 
-1,-1): PUTSPR I TE2 , < - 1 , -1 ) = PUTSPR I TE 3,<~ 
1,-1 >= RETURN 

1750 REM :t;*:**^#*^:*::m^^*:**^*W 
1760 REM * V= VERKLEIN MARL TWEE * 

1770 REM * * 

1 780 REM ie*****##**#*#***##******# 

1790 REM 

1800 IF VFK-l OR PK=0 THEN RETURN ELSE V 
FK-VFV2 = VK“;=K’;< 2 )+2*VX5i = VYK=YK< 2)+2*VYX 
= SP‘;=0 = PK=0 = GOSUB 2300 = PUTSPR I TE 1 , < - 1 , - 
1 > = PUTSPR I TE 2, (-1,-1 > = PUTSPR I TE 3 , < - 1 , - 
1 > = RETURN 

1810 REM ************************* 

1820 REM * V=VERSCHU I F # 

1830 REM * * 
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1 840 rem *#*#***#mmm***##m 

1850 REM 

1860 IF FT". <2 THEN RETURN ELSE YX>.~W,Z+X'4 
< 2 >~X*< 1 > = V‘T , 'i=VV“;+Y“-.( 2 )~m 1 > = COSUB 2300 
= PUTSPR I TE 1 , < - 1 , - 1 ) = PUTSPR I TE 2 , < - 1 , - 1 > 
= PUTSPR I TE 3, <-1,-1 ) 

1870 Xy.-XV.~W/A 2 >+XZ< 1 > • T4=T<-m 2 >+YJï< 1 > 
= P“;=0 

1880 RETURN 

1 890 REM ************************* 

1900 REM * F= INKLEUREN * 

1910 REM * * 

1 920 REM ************************* 

1930 REM 

1940 E":=l • ■ GOSUB 3 130 'PLAATS IN P’i 

1950 RETURN 



1970 REM % D=SLUIT POLYGOON X 
1980 REM * * 

1 990 rem m******m*m*#**:m#* 

20Ö0 REM 

2010 E’;=l : 12=4 : GOSUB 3130' PLAATS IN P2 
2020 RETURN 

2030 REM XXXXXXXXXXXXXXXXXXXXXUXX 
2040 REM X P-STPRT POLYGOON % 

2050 REM X • X 

2060 REM XXXXXXXXXXXXXXXXXXXXttXXX 
2070 REM 

2080 SP“;~0 : GOSUB 1080 : RETURN 

2090 rem ###*#*:m*#*m*m#**m 

2100 REM * A=B IJ VOEGEN TEKENING X 

2110 REM X X 

2 1 20 REM XXXXXXXX.XXX ************** 

2i3fi F?Ef»1 

2140 IF P';=0 THEN RETURN 
2150 GOSUB 3220' BESTANDSNAAM 
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2160 IF F$~" " THEN RETURN 

2170 OPEN F* FOR INPUT AS 1 * INPUT #1,R$= 

J*=VAL< R$ > 

2180 FOR PP*=PP* TO PP*+ J*~ 1 : FOR I*=0 TO 
6 * I NPUT# 1 , R$ = P5c< PP*; , I * )=VAL< R$ > = NE NT I * 
•• p*< PP*;, 0 ;«P“:< pp*, 0 >+x*< 2 > ■ P*-; PP*, 1 >=p*< 
PP’;, 1 >+Y*< 2 > = P*( pp*;, 2 >~P*< PP*;, 2 >+K*< 2 > « P 
*< pp;; , 3 )=p*< PP* , 3 >+Y*< 2 > 

2 1 30 P*< pp;; , 4 >=p*< pp;; , 4 >+x*< 2 > = p;;( pp* , 5 > 
=p;;c pp;; , 5 >+ y*< 2 > GOSUB 24 1 0 ' teken een de 
TRIL 

2200 NEXT PP*: CLOSE 
2210 GOSUB 3000 •’ KOPTEKST 
2220 RETURN 

2230 REM 4 4 4 4 4 4 4 4’ 4- 4 4 4 4i 4 4 4 $ 4 4 & 4 4 4 4 4 
2240 REM * K-TEKEN EEN KROMME 4 

2250 REM * 4 

22 1> 0 REM 4 & 4 4 4 4 4 4 4 4 4 4 44 4 4 4 4 4 4’ 4* 4 4 44 
2270 REM 

2280 E*=3 : I*-5 : GOSUB 3 138 'PLAATS IN P* 
2230 RETURN 

2800 RE M 4 4444444 4 4 4 4 4 44 4 4 4 4 4 4 4 4 44 
2310 REM 4 TEKEN HELE TEKENING 4 

2320 REM 4 * 4 

2330 REM 4444444444444444444444444 
2340 REM 

2350 GOSUB 410 ' KOP EN RASTER 

2360 IF PP;;=0 THEN RETURN 

2370 QQ*~PP* : FOR P P*=0 TO QG*~1 

2380 GOSUB 24 10 'TEKEN 1 FIGUUR 

2330 NEXT PP* = PP*=ÖQ* = GOSUB 3000 •' KOPTEKS 

T 



2400 RETURN 

24 1 0 REM 4444444444444444444444444 
2420 REM 4 TEKEN EEN DETAIL 4 
2430 REM 4 4 
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2440 rem *#**m*mm**#**#*#m 

2450 REM 

2460 ON P'X pp ';, 6 >+ 1 GOSUB 2480,2540,2600 
, 2660, 2750, 2820 
2470 RETURN 
2480 REM 

2490 REM * TEKEN EEN LIJN t 
2500 REM * # 

2510 rem 

2520 REM 

2530 L I NE < < P>X PP'; , 2 >+ VX'; >*VF';+ 1 0 , < P'X PP 
3 >+VY‘; >*VF *;+10 >-< < pxcpp';, 4 >+vx"; >*VF';+i 
0, < p*;( PP';, 5 >+VY.“; >*VF!£+10 ) •• RETURN 
3540 REM 4- X-XX 4 4 4- 4- •£ 4 •$. 4 'X 4 X 4- X- -X X X X- X- 
2550 REM X TEKEN EEN CIRCEL X 
2560 REM X- X 

2570 rem m***mmmmm*m 

2580 REM 

2590 C I RCLE < C < P“;< PP'; , 4 >+P';< PP* , 2 > >/2+ VK 
:•; >*VF*+10, < < P'X PP'., 5 )+P*< PP';, 3 ) V2+VY2 >4: 
VFX+10 >, VF**SQR< < P'X PP';, 2 >-P';< PP';, 4 > ) A 2+ 

< P';<: pp.';, 3 >-p*< pp*, 5 > r-z V2 = return 

2600 REM <4 X X- X X X X X XXX X X- $ X X Y •£ •£ -Y 4 4 $ 4 
2610 REM X TEKEN EEN BLOK * 

2620 REM X X 

2630 REM XXXXtXXXXXXXXXXXXX: ******* 

2640 REM 

2650 LINE C < P'X PP';, 2 HVX* >*VF*+10, < P'X PP 
X, 3 >+VY'; >*VF';+10 )-< < P';< PP';, 4 >+vX'; >*VF ';+1 
0, < P‘;< pp:-; , 5 >+ V Y* >*VF“;+ 10), ,B : RETURN 
2660 REM :4: .4: :4. 4: :4: * 4; * 4; 4=: 4=: :4: :4: 4: :K 
2670 REM X VUL EEN VLAK X 

2680 REM X X 

2690 REM ************************* 

2700 REM 

27 1 0 Xf:-;=< P'X pp'; , 4 >+ m >*VF*;+ 1 e = VF*=< p:x 
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PP>O5)+VY*;>*VF*+10 

2720 IF XFfc< 10 OR XFX>240 OR YF“;<10 OR Y 
F*; >180 THEN 2740 
2730 PRINT CXFJS/YFJO 
2748 RETURN 

2750 rem trutttruttttttutttttn 

2760 REM * SLUIT POLYGOON t 

2770 REM * * 

2789 REM ************************* 

2790 REM 

2800 3P‘;=0 : P"X pp'; , 2 >=sx* = py.< PP'; , 3 )=s Y'; = P 
j£< PP3£, 6 >=0 « GOSUB 2410" TEKEN EEN DETAIL 
2810 RETURN 

2820 REM mm******************* 

2830 REM * KROMME TEKENEN * 

2848 REM * * 

2850 rem 

2860 REM 

2870 flX*P5i< PP';.« 0 > • ry=p*;< pp*;, i Y bx*p y.< fp>. 
, 2 >- BY=P*;C pp.*;, 3 > : cx=P*;< pp*;, 4 > = CY=P*;< pp*;, 
5 > : D*< BX-RX Y- 2+< BY-RY ) A 2 •• D1=C CX-BX ) A 2+< C 
Y-BY X"2 : 1 F D >D 1 THEN D=D1 
2880 IF D=0 THEN 2990 ELSE 0= SQRCD V2 



2890 DX=< BX-RX VD = DY=< BY-RY >/D = EX=< CX--BX 
VD * EY=< CY-BY VD = BX=BX+EX = BY=BY+EY = PSET 
< < RX+VX* >* VFX+ 1 0 , < AY+VY*; >*VF“;+ 10.V GOTO 2 
970 

2900 Ql=BX-flX‘IF Q1=0 THEN 2960 
291 0 Q 1 =< BY-RY VQ 1 : Q2-RY-Q 1 *RX 
2920 Q3=BX+EX-flX~DX : IF 03=0 THEN 2960 
2930 Q3=< BY+E Y-RY-DY X--Q3 • Q4=RY+DY-Q3*< RX 
+DX ' 

2940 IF 01-03=0 THEN 2960 ELSE 03=034-02 

Ul — 0-3 J 

2950 L I NE -< < 03+ VX*;+ . 5 > *VF3i+ 1 0 , < 0 1 *03+02 
+VY*;+.5>*VF“;+10> 
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2960 BX-BX+EX : BY=BY+EY : AX-AX+DK : AY-flY+DY 
2978 IF flBS<BX-CXX*flBS<EX) AND ABSC BY~C 
Y >< =ABS< E Y ) THEN L I NE -< < CX+Wi >* VFX+ 1 0 , 

< CY+VY'ï ÏMF>.+ 1 0 ) = GOTO 2990 
2980 GOTO 2980 
2990 RETURN 

3000 REM XXXXXXXXXXXXXXXXXXXXXXXXX 
3010 REM * KOPTEKST * 

3020 REM * — * 

3830 REM XXXXXXXXXXXXXXXXXXXXXXXXX 
3040 REM 

3850 OPEN "GRP : " AS 1 : PRESET < 8 , 2 > : COLOR 
0: PRINT #1 , "MSX-TEKEHPROGRRMMfl STARK TEX 
EL" = COLOR 15 -CLOSE 
3060 RETURN 

3070 REM XXXXXXXXXXXXXXXXXXXXXXXXX 
3080 REM X TEKEN DE PIJL X 

3890 REM X * 

3 1 80 REM XXXXXXXXXXXXXXXXXXXXXXXXX 
3110 F'UTSPR I TE 0 , < < XZ+VX'4 > XVF‘4+1 0 .■ < YJi+VY 
b 4)XVF‘4+9)j 14 = RETURN 
3120 RETURN 

3 1 30 REM XXXXXXXXXXXXXXXXXXXXXXXXX 
3140 REM X PLAATS FIGUUR IN PÜ X 

3150 REM * * 

3 1 60 REM XXXXXXXXXXXXXXXXXXXXXXXXX 
3170 REM 

3180 IF THEN 3210 

3190 P*;=l = P*;< PP';, 9 >=!<W 9 > = PW PP”;, 1 0 

> = P-;< PP”;, 2 }=x*;< i ) = PW. PP*;, 3 )=Y^< 1 > = PW pp*; 

, 4 )=kw: 2 > = PW pp*; , 5 >=Y*;< 2 > = P.*;< pp*; , 6 >= I •••; = G 

OSUB 24 10 'TEKEN 1 FIGUUR 

3200 FP*;=i • 1 = F'UTSPR I TE PN*;+ 1 +3*< PN-‘;=3 > 

, < - 1 , - 1 > = F'UTSPR I TE PN*;+2+3*< PN*;> 1 > , < - 1 , ~ 

1 > = GOSUB 3000 •' KOPTEKST 

3210 RETURN 
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3220 rem mmmmmmm***# 

3230 REM * SPECIFICEREN TEK. HAAM # 

3240 REM * # 

3250 REM * HIER KflN BINNEN EEN * 

3260 REM * BEPAALDE TIJD EEN 0/3 * 

3270 REM * WORDEN INGEGEVEN VOOR * 

3280 REM * HET TEKENBESANDNUMMER * 

3290 REM 
3308 REM 

3310 FOR 1=1 TO 1 00 : K$= I NKEY$ : I F K$=" " T 

HEN NEKT I ; F$=" " : RETURN 

3328 IF CK*<"A" GR K$>"Z" > AND < K$< "0" O 

R THEN RETURN 

3330 F$= " TEK " +K$+ " . DAT " = RETURN 
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9 



INHOUDSOPGAVE SCHIJF 



Het volgende voorbeeld laat zien dat in een enkel geval de DSKI$- 
funktie nuttig kan worden gebruikt. Door de onvolledige invoering 
door Microsoft van dit sleutelwoord is het gebruik echter vrij moeilijk. 

Dit nuttige programmaatje geeft van de laatst gebruikte schijveneenheid 
een inhoudsopgave en zal op de meeste MSX-computers, soms na een 
kleine aanpassing, goed lopen. 

10 REM ****** ******************* 

20 REM * UITGEBREIDE "FILES" * 

30 REM ************************* 

40 REM 

50 MAXFILES=1 : CLEAR 1QO:COLOR 15,4,4 : SCR 
EEN 0 : CLS 

60 PRINT "OVERZICHT SCHIJF" 

70 PRINT » " 

80 PRINT " BESTAND KB" 

90 PRINT " " 

100 CLEAR 1024 
110 FOR S=5 TO 11 
120 A$ = DSK I $ ( 0 ,S) 

130 FOR 1=60310 ! TO 60821! STEP 32IIF PEE 
K ( I ) <32 OR PEEK ( I ) > 1 27 THEN 160 
140 F$ = " " ; FOR J=0 TO 1 1 ; F$=F$+CHR$ ( PEEK< 
J+I ) ) : NEXT J 

150 PRINT Ff.:; OPEN F$ AS 1 : K= INT< LOF ( 1 ) / 
1024+.9999) :PRINT USING "### KB";K:C=C+K 
: CLOSE 
160 NEXT I 
170 NEXT S 

180 PRINT TAB ( 11).: " •' 

190 PRINT "BEZET : ""PRINT USING "## 

# KB " JC: PRINT "VRIJ PRINT USIN 




r-j o 



"### KB" JDSKF(O) 

00 PRINT TAB(ll);" " : PR INT "TOTAAL 

PRINT USING "### KB" ; DSKF < 0 ) +C : PRINT 
210 STOP 
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EEN SNEL KOPIEERFROGRAMMA VOOR EEN DISK 



Het COPY-kommando werkt onder MSX zeer langzaam wanneer men 
slechts over één schijveneenheid beschikt. Meestal moet de schijf 
vele tientallen malen worden verwisseld bij een kopiëeropdracht. 

Het volgende programma kopieert een hele schijf en doet dit met 
stappen van 16 kilobytes. Hierdoor werkt dit programma veel sneller 
dan het gewone COPY-kommando. 

Het nadeel is dat altijd de gehele schijf wordt gekopieerd. 

Ook in dit programma wordt het DSKIS-kommando gebruikt. Omdat 
dit geen door Microsoft ondersteund kommando is, kan het zijn dat 
uw programma niet meteen loopt. In dat geval dient het een en ander 
te worden versleuteld. 

Vergeet niet om voor de zekerheid bij het kopiëren de originele schijf 
altijd WRITE PROTECT te maken. 

10 REM ************************* 

20 REM * SNEL KOPIËREN * 

30 REM ************************* 

40 REM 

50 REM ************************* 

60 REM * HOOFDPROGRAMMA * 

70 REM ************************* 

80 REM 

90 CLEAR 1 9000 ' ,r AN NIET IN SUBROUTINE 

100 GOSUB 190' INITIALISATIE 

110 GOSUB 350 'OPBOUWEN FILE-LIST 

120 IF FP=-1 THEN 170 'SCHIJF LEEG 

130 GOSUB 560 ' INLE2EN GEGEVENS 

140 IF EE=- 1 THEN 170 'EINDE 

150 GOSUB 820 'SCHRIJVEN GEGEVENS 

160 GOTO 130 'VOLGENDE INLEESGANG 

170 GOSUB 1040 'AFSLUITEN 

180 CLEAR 100 : STOP 'EINDE 
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190 REM ************************* 

200 REM * INITIALISATIE * 

210 REM ************************* 

220 REM 

230 DIM F$ < 1 1 1 ) ' VOOR FILELIST 

240 DIM F< 112) 'VOOR LENGTEN FILES 

250 EE=Q ' MERKER EINDE KOPIEERGANG 

260 DIM C$ ( 128) ' KOPIEERGEB I ED 

270 FP=0 ' FILELIST-POINTER OP 0 

280 CP=0 : PC=0 ' COPY-PO INTER OP 1 

290 RP=1 :PR=1 'RECORD-PO INTER OP 0 

300 MP=0 I PM=0 ' MEMORY-PO INTER OP 0 

310 ER=0 ' MERKER EERSTE KEER 

320 WIDTH 40 :CLS' BEELD SCHOON 

330 PRINT "SNEL ENKEL-DISK KOP I EERPROGRA 

MMA STARK" 

340 RETURN ' E I NDE INITIALISATIE 
350 REM ************************* 

360 REM * OPBOUWEN FILELIST * 

370 REM ************************* 

380 REM 

390 PRINT "DE FILELIST WORDT NU OPGEBOUW 
D" 

400 REM ONDERZOEK SECTOREN 5-11 

410 REM VOOR SCHIJF- INDEX 

420 FOR SE=5 TO 1 1 :Kt*DSKI» < 1 ,SE) 

430 REM HAAL NU FILELIST OP 

440 FOR 1=60310! TO 60821! STEP 32 

450 REM CONTROLEER JUISTE FILENAME 

460 IF PEEK ( I ) <32 OR PEEK(I)>127 THEN 52 

0 

470 REM HAAL NU DE BESTANDSNAAM 

480 FOR J=I TO 1+10 

490 F$ < FP ) =F$ ( FP ) +GHRt < PEEK ( J ) ) 

500 NEXT J ' VOLGENDE LETTER 
510 FP=FP+ 1 ' VERHOOG FILEPOINTER 
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520 NEXT I' VOLGENDE FILENAME 

530 NEXT SE ' VOLGENDE SECTOR 

540 FP=FP’-1 'CORRIGEER FILELIST POINTER 

550 RETURN' FILELIST COMPLEET 

560 REM tttttttt.ttttt.tttttt.tt.tttt. 

570 REM t INLEZEN 16KB GEGEVENS * 

580 REM ttt.ttt.ttt.tttt.ttttttttt.ttt 
590 REM 

600 PRINT: IF ER= 1 THEN PRINT "PLAATS ORI 
GINELE SCHIJF ( RETURN )": ELSE ER=1:GOTO 6 
20 

610 IF INKEYf OCHRf < 13) THEN 610 

620 REM AFVANGEN TWEEDE RETURN 

630 IF INKEY $ <> " " THEN 630 

640 REM WACHTLOOP VOOR SNELLE DRUKKERS 

650 FOR 1=1 TO 1000: NEXT I 

660 ERASE Cf: DIM Cf (128) 'VOOR SNELHEID 

670 M0=0' MERKER KANAAL OPEN OP 0 

680 IF GP> FF THEN EE= < MP=0 ): RETURN 

690 IF MO= 1 THEN 760 

700 Ff =Ff (CP) 'BESTANDSNAAM 

710 OPEN Ff AS 1 'OPEN BESTAND 

720 MO= 1 

730 FIELD 1,128 AS Af ,128 AS Bf 

740 PR INT: PR INT Ff;" WORDT INGELEZEN." 

750 ON ERROR GOTO 790 

760 GET 1 ,RP:Cf (MP)=Af :Cf (MP+1 )=Bf 

770 MP=MP+2 : RP=RP+ 1 

780 IF MP=128 THEN M0=0 : CLOSE : RETURN ELS 
E 690 

790 RÉSUMÉ 800 
800 ON ERROR GOTO 

810 F ( CP ) =RP- 1 :F(CP+1 ) = lE+20: CLOSE :MO=0: 
CP=CP+ 1 : RP= 1 : GOTO 680 
820 REM tttttttttttttttttttttttttt 
830 REM t SCHRIJVEN 1 6K GEGEVENS * 
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840 REM *tt%tttt****t**t%tt%****** 

850 REM 

860 PRINT: PRINT "PLAATS KOPIE SCHIJF < RE 
TURN ) " 

870 IF INKEYf OGHRf ( 13 ) THEN 870 

880 REM AF VANGEN TWEEDE RETURN 

890 IF INKEYf O “ " THEN 890 

900 REM WACHTLOOP VOOR SNELLE DRUKKERS 

910 FOR 1=1 TO 1 000 : NEXT I 

920 MO=0 ' MERKER KANAAL OPEN OP 0 

930 IF PR> F < PC ) THEN CLOSE : MO=0 : PC=PC+ 1 ! 

PR=1 : IF POFP THEN MP=0 : RETURN 

940 IF MO= 1 THEN 1010 

950 Ff =Ff < PC ) ' BESTANDSNAAM 

960 IF PR= 1 THEN OPEN Ff FOR OUTPUT AS 1 

: CLOSE ' SCHOONMAKEN BESTAND 

970 OPEN Ff AS 1 ' OPEN BESTAND 

980 MO= 1 

990 FIELD 1,128 AS Af, 128 AS Bf 
1000 PR INT: PR INT Ff.:" WORDT GESCHREVEN." 
1010 LSET Af =Cf < PM ) : LSET Bf =Cf < PM+1 ) ! PUT 
1 , PR 

1020 PM=PM+2 : PR=PR+ 1 

1030 IF PM= 1 28 THEN PM=0 : MP=0 ! MO=0 : CLOSE 
: RETURN ELSE 930 

1040 REM tttt-ttttttttttttttttttttt 
1050 REM * AFSLUITEN * 

1060 REM tttttttttttttttt********* 

1070 REM 

1080 CLOSE: PRINT ‘.PRINT "HET KOPIËREN IS 
TEN EINDE" 

1090 RETURN 
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Aantekeningen 




